Die Gefahr besteht derzeit bei mir nicht, glaube ich. Aber dennoch, danke für die Warnung.
Bitte.
Derzeit ... und wenn du daran in 2 Jahren was änderst, dann hast'e dieses hier bestimmt schonwieder vergessen.
PS: Ich würde zwar auch eher zu "einfach" tendieren,
aber das wäre jetzt nicht einfach, sondern
billig fehleranfällig.
Delphi-Quellcode:
TForm5 =
class(TForm)
procedure FormShow(Sender: TObject);
procedure WMMachWas(
var Msg: TMessage);
message WM_USER+1;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
procedure TForm5.FormShow(Sender: TObject);
begin
...
PostMessage(
Handle, WM_USER+1, 0, 0);
...
end;
PS: So wäre es sogar übersichtlicher, da der Bearbeitungsweg "eindeutig" ist.