Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Problem: Panel.OnMouseLeave wenn Chldcomponente bemaust wird

  Alt 29. Apr 2013, 16:27
Da Du Delphi7 verwendest wirst Du CMMouseEnter und CMMouseLeave verwenden.
Hier bekommst Du in LParam einen Zeiger auf den eigentlichen Empfänger der Message übermittelt, sofern vorhanden.

Delphi-Quellcode:
procedure TMyComp.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  if (Message.LParam = 0) then
    Color:=clgray
// else if TComponent(Message.LParam) = FEdit then Showmessage('Edit überfahren')
end;

procedure TMyComp.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if (Message.LParam = 0) then
      Color:=clsilver;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat