Zitat von
KosMottchen:
Delphi-Quellcode:
procedure focus;
begin
Form1.Button1.SetFocus;
end;
Gewöhn dir mal an in einer Formularmethode nicht über die von Delphi global angelegte Formularvariable auf Members des Formulars zuzugreifen. Wenn du jetzt z.B. eine 2te Instanz des formulars wiefolgt anlegst:
Delphi-Quellcode:
var
dlg: TForm1;
begin
dlg := TForm1.Create(nil);
...
end;
kracht es natürlich an jeder Ecke da du dann auf die andere Instanz zugreifst.
Und TForm1 ist auch kein guter Name für eine Klasse. Kennst Du dich noch aus wenn du 10 Formular TForm1...TForm10 hast was die so machen?