Kristjan H
Posts: 27
Joined: 2005-10-29
|
My code:
Form2 := TForm2.Create(Self);
try
Form2.ShowModal;
finally
FreeAndNil(Form2);
end;
I basically need this form always on top, but when i change form properties then i get error.
tnx
Kris |
|
Dmitry Kostochko
Add-in Express team
Posts: 2880
Joined: 2004-04-05
|
Hi Kristjan,
I have just created and tested a simple add-in with a Delphi form. I have set the FormStyle property to fsStayOnTop. It works without any errors. See the code below.
procedure TAddInModule.adxCommandBar1Controls0Click(Sender: TObject);
begin
Form1 := TForm1.Create([B]nil[/B]);
try
Form1.ShowModal;
finally
FreeAndNil(Form1);
end;
end;
|
|