Ich weiß wo ich OnPaint finde ;D
Aber danke, für den Tipp.
[edit]Ich muss mich leider nochmal melden.
Das:
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure WMSize(var Msg: TMessage); message WM_SIZE;
[...]
verträgt sich leider überhaupt nicht mit:
Delphi-Quellcode:
type
[...]
procedure WMExitSizeMove(var Message: TMessage); message WM_EXITSIZEMOVE;
Wenn ich beides schreibe, wirkt das ExitSizeMove nicht mehr, und das Fenster wird nicht neugezeichnet nach dem resizen.
Jemand ne Idee wie ich das lösen könnte?
Oder ob man beides verbinden kann?
[/edit]
[edit2]
Ich hab das ganze jetzt mit folgendem gelöst, jedoch fehlt noch eine Kleinigkeit:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
begin
case Form1.WindowState of
wsMaximized: //maximiert
begin
[...]
end;
wsMinimized: //minimiert
begin
[...]
end;
wsNormal:
begin
[...] //...
end;
else
begin
[...] //...
end;
end;
end;
Was fehlt ist, wenn ich das Fenster maximiere und dann auf Größe wiederherstellen klicke, wird nicht neu gezeichnet!
Weiß jemand was ich dazu machen muss?
[/edit2]