При открытии формы в программе ей в свойство Tag записывается handle TMenuItema с которого она была открыта. Для TMenuItem устанавливается Enabled=false. При закрытии формы для TMenuItem этой формы делается Enabled=true.
Проблема такая: иногда возникает Range check error на строчке:
form.Tag := item.Handle;
Сам item.Handle имеет тип HMENU, а Tag - integer. Я так понимаю, что проблема в том что в item.Handle хранится слишком большое число для Integer.
Можно ли безопасно сделать cast из HMENU в integer? В с++ для этих целей вроде есть функции IntToPtr и PtrToInt, но в delphi я их не нахожу. Или возможно можно решить по-другому мою проблему, без создания в каждой форме выделенного свойства типа HMENU?
Предполагается что проект должен работать на любой платформе. Сам проект компилируется иногда из под 32 битной системы, иногда с 64
procedure TFrmMain.CreateForm;
begin
//создание FrmChild ...
ProcessMenuItem(tMenuItem(Sender), FrmChild);
end;
procedure TFrmMain.ProcessMenuItem(item: TMenuItem; form: TForm);
begin
item.Enabled := false;
form.Tag := item.Handle;
end;
procedure TfrmChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//при закрытии формы активируем MenuItem
frmMain.BeforeCloseChild(tForm(Sender));
Action := caFree;
Child:=nil;
end;
procedure TfrmMain.BeforeCloseChild(ChildForm: tForm);
begin
frmMain.MainMenu1.FindItem(ChildForm.tag, fkHandle).Enabled := true;
end;
Tag
у компонентов - это первый признак плохой архитектуры приложения и повод задуматься о ее (архитектуры) изменении. Придумайте другой способ реализации требуемого функционала. Добавьте вFrmChild
публичное поле типаHWND
или сразуTMenuItem
, как вам советует @KromStern.Tag
для того и полезен, что в него можно по-быстрому что-то вмонстрячить. Только надо обращать внимание, что не все в него влезет.