title image


Smiley Das ist gut, aber ich hab durch den Tip eine bessere Möglichkeit..
..gefunden:





procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);

begin

if _Abort_Process = 0 then

Exit;

if msg.message = WM_MOUSEMOVE then

if (msg.hwnd = CheckBox_LiveView.Handle) or

(msg.hwnd = RahmenPanel_Abort.Handle) or

(msg.hwnd = Image_ShowBigPicture.Parent.Handle) then

Screen.Cursor := crHandPoint

else

Screen.Cursor := crHourGlass;

end;





Image_ShowBigPicture ist ein TImage, das Parent ist eine Ableitung eines TPanels.



Ich brauche diese Art der Behandlung, weil während eines langen Arbeitsprozesses der Mauszeiger als Sanduhr für die Anwendung festgelegt wird, nur für einige Elemente soll der Zeiger sich ändern. Ohne Timer.



Ich danke dir herzlich für den Link :-)

Gruß
~Mathias
..   ————————————————————————————————————————
..
..   Private Seite: http://www.nogad.de
..
..   ————————————————————————————————————————
..
..   Pension Fiege - Inhaber Monika Fiege
..   Kranichfelder Straße 68
..   99097 Erfurt
..
..   Tel: +49 361 41 38 39
..   Fax: +49 361 42 150 87
..
..   www.Pension-Fiege.de
..
..   ————————————————————————————————————————


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: