Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by himitsu,
3. Jul 2012
Arg, ich hatte mich verguckt.
class function TThread.CreateAnonymousThread(const ThreadProc: TProc): TThread;
begin
Result := TAnonymousThread.Create(ThreadProc);
end;
Nur daß mal wieder jemand auf die saublöde Idee gekommen ist und diese Klasse versteckt in der Implementation deklariert hat. :wall:
Haben die noch nie was von Vererbung gehört und daß es eventuell jemanden geben könnte,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by himitsu,
2. Jul 2012
Das FreeOnTerminate ist nicht nötig, da es im Constructor des TAnonymousThread schon auf true gesetzt wird.
TThread.CreateAnonymousThread(procedure
begin
...
end).Start;
// oder
TAnonymousThread.Create(procedure
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by himitsu,
2. Jul 2012
In ShowMessage stecken weitere Funktionen, da kann man sich den Message-Dialog erzeugen lassen und bevor man ihn anzeigt, könnte man noch etwas am PopupMode und PopupParent rumspielen und notfalls auch noch mit dem FormStyle.
z.B. könnte man sich die oberste Form suchen und den Dialog damit verbinden, damit Delphi den Dialog noch vor dieser Form darstellt.
Du könntest aber natürlich auch...