Einzelnen Beitrag anzeigen

noch_ein_hannes

Registriert seit: 18. Sep 2003
130 Beiträge
 
#8

Re: Wie bei Apple Taskleiste --> in Delphi programmieren

  Alt 14. Feb 2006, 10:55
Hi,

das Ding im Mac-OSX heist "Dock" und es gibt etliche Tools (Bei Google suchendock windows) für XP
wie z.B. das http://www.openwares.org/. (Downloads/System)

Zu Deiner Frage:

Ein Image besitzt zwar kein MouseOver-Event, aber Du kannst ja das Control unter der Maus
mit Hier im Forum suchenWindowFromPoint() per Timer abfragen:

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
  P : TPoint;
  h: HWND;
begin
  GetCursorPos(P);

  if (P.x>Left) and (P.x<Left+Width) and
     (P.Y>Top) and (P.Y<Top+Height) then
  begin
    h := WindowFromPoint(p);

    if (h = Img.Handle) AND (Img.Scale < 2) then Img.Scale := Img.Scale + 0.3
    else if (h <> Img.Handle) AND (Img.Scale > 1) then Img.Scale := Img.Scale - 0.3;

  end;
end;

Grüsse,
hannes
- everything is possible -
  Mit Zitat antworten Zitat