Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by ASM,
13. Feb 2012
Obwohl inzwischen ja alles mit der Funktion MouseOverWindow() sehr einfach und bestens gelöst ist, hier doch noch meine Antwort auf die Frage.
Da kommen sie her (komplettes Beispiel):
type
TForm1 = class(TForm)
Panel1: TPanel;
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
protected
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by ASM,
13. Feb 2012
Erstens, funktioniert das mit Hilfe des ApplicationEvents1Message-Events zwar mit Delphi XE, jedoch merkwürdigerweise nicht mit Delphi 7.
Zweitens, wird (wenn es denn funktioniert, z.B. mit Delphi XE) die Kopfzeile der Form bereits als außerhalb der Form gewertet. Nicht sehr sinnvoll.
Die einzig verlässliche Vorgehensweise ist also die per Funktion MouseOverWindow(), wie beschrieben. Ich...