Buena tarde
Compañeros estoy realizando un menu dinamico pero me falta que cuando se genere y se le de clic abra un formulario
Código Delphi
[-]
procedure TFrmHome.FormCreate(Sender: TObject);
var
Item: TMenuItem;
begin
DModulot.ResetConf();
with DModulo.QueryDocumentos do
begin
if RecordCount > 0 then
begin
First;
while Eof = false do
begin
Item := TMenuItem.Create(Self);
MVentas.Add(Item);
Item.Caption := FieldByName('Documento').AsString;
Item.ImageIndex := 1;
Item.OnClick := menuDinamicoClick;
Next;
end;
end;
end;
end;
tengo esta funcion pero no se me ocurre como llamar el formulario
Código Delphi
[-]
procedure TFrmHome.menuDinamicoClick(Sender: TObject);
begin
if Sender is TMenuItem then
begin
ShowMessage('Hola');
end;
end;