Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Mai 2008
nja viele lassen ja ihre "privaten" Messages über die Fensterprozedur (TForm), oder über die Application (TApplication) laufen.
aber wenn man mal ohne diese Fenster (TForm und TAplication) auskommen muß, dann bietet sich hervoragend sowas an ... ist ja extra da, damit man daran Fensternachrichten (SendMessage und Co.) senden und sie natürlich auch empfangen kann :)
PS: der...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Mai 2008
erstellen eines Message-Only-Windows
Var VI: TOSVersionInfo;
S: String;
VI.OSVersionInfoSize := SizeOf(TOSVersionInfo);
If GetVersionEx(VI) and (VI.MajorVersion >= 5) Then
S := 'Message' Else S := 'STATIC';
MessageWindow := CreateWindowExA(0, PChar(S), nil,
WS_POPUP, 0, 0, 0, 0, 0, 0, GetCurrentProcessID, nil);