Du hast in die gleiche Richtung gedacht wie ich
Etwas hab' ich unter der Woche auch schon geschafft, kann aber erst am WE richtig ran und testen. Kleiner SuperGau: dachte ich kann mit Delphi7PE am Win7 Rechner direkt testen, aber ApplicationOnTaskbar schein das Cerhalten (weitergereichte Ereignisse) auch wieder zu ändern.
Das Problem mit dem an falscher Position hängenden Button (bei diversen Maximize Aktionen), liegt nicht an einer falschen Berechnung, sondern an einer fehlenden Aktualisierung. Da hab' ich zuvor entfernte Messages wieder zum Behandeln reingenommen. Überhaupt hab' ich mal neu organisiert.
Zum hängenden Button bei animiertem Mini/Maximize hatte ich die gleiche Idee wie Du. Einfach das Teil vorher ausblenden (allerdings nicht Visible direkt ändern, falls der unsichbar war, sollte er es bleiben). Hab' es in einem ersten Ansatz etwas anders gelöst. Konnte aber noch nicht wirklich testen... unter XP läuft es leider fast immer sehr gut...
Delphi-Quellcode:
procedure TAppButton.MainFormWndProc(var Message: TMessage);
var
R : TRect;
begin
case Message.Msg of
WM_SYSCOMMAND:
begin
if (Message.WParam = SC_MINIMIZE) then
ShowWindow(fHandle, SW_HIDE);
end;
end;
if Assigned(fMainFormWndProc) then
fMainFormWndProc(Message);
case Message.Msg of
WM_MOVE, WM_MOVING, WM_SIZe, WM_SIZING, WM_EXITSIZEMOVE, WM_NCPAINT:
begin
MoveButtonWindow(True);
end;
WM_STYLECHANGED, WM_SETTINGCHANGE:
begin
Color := Color;
Invalidate;
end;
WM_ACTIVATE:
begin
Invalidate;
end;
WM_NCCALCSIZE:
begin
R := ButtonRect;
if (not fOptimizeUpdates)
or (fLastPainted.X <> R.Left) or (fLastPainted.Y <> R.Top) then
Invalidate;
end;
WM_SYSCOMMAND:
begin
if fVisible
and ((Message.WParam = SC_RESTORE) or (Message.WParam = SC_MAXIMIZE)) then
begin
ShowWindow(fHandle, SW_SHOW);
fMainForm.SetFocus;
end;
end;
end;
end;
Ich bin jedenfalls sicher, dass die Probleme zu lösen sind, muss nur noch etwas suchen
Ich poste gleich die ganze
Unit nochmal, und die Exe zum Testen...
€: Heute morgen kurz am Win7 PC getestet, funktioniert
nicht richtig!
Ich bekomme zum WE ein Win7 Notebook. Dann kann ich das direkt testen. Immer ändern und später probieren hat kein Wert, so komme ich nicht weiter. Verschiebe das Problem jetzt erstmal, bis ich mit D2007 direkt auf Win7 entwickeln kann.