Habe gerade leider keinerlei Lazarus zur Verfügung, kann es daher auch nicht testen. Was genau funktioniert denn nicht? Hast du es schon mit Klammern hinter Show, also Show(), probiert? Denn es handelt sich dabei ja nicht um eine Eigenschaft, sondern eine Methode.
Also bei mir klappt folgendes:
Delphi-Quellcode:
TForm1 = class(TForm)
{ ... }
end;
// Weiter unten..
procedure Button1.OnClick(Sender: TObject)
var
f : TForm1;
begin
f := TForm1.Create(nil);
try
f.ShowModal();
finally
FreeAndNil(f);
end;
end;
Beide Forms liegen halt exakt übereinander und sehen gleich aus.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)