Wenn nirgendwo in Deinem Code
form:= TTest.Create;
funktioniert das Konstrukt eh nur zufällig, wenn es also so ähnlich wie hier aussehen sollte
Delphi-Quellcode:
type
TTest = Class
fForm: TForm6;
End;
procedure TForm6.Button1Click(Sender: TObject);
var
form: TTest;
begin
form.fForm := TForm6.Create(nil);
form.fForm.Left := Random(Screen.Width - form.fForm.Width) + 1;
form.fForm.Top := Random(Screen.Height - form.fForm.Height) + 1;
form.fForm.Show;
end;
greifst Du mit form.fForm := irgendwo in den Stack ....
Aus einem Thread auf
VCL-Komponenten greifst Du per synchronize zu.