Einzelnen Beitrag anzeigen

Benutzerbild von H4ndy
H4ndy

Registriert seit: 28. Jun 2003
Ort: Chemnitz
515 Beiträge
 
Delphi XE3 Professional
 
#6

Re: OnMouseUp auf Parent-Panel auslösen

  Alt 29. Jun 2006, 15:44
Kein Problem, ich glaub wir haben aneinander vorbeigeredet ^^"
Probier mal folgendes:

Im OnMouseUp vom ClientPanel:
Delphi-Quellcode:
var Punkt: TPoint;
begin
  Punkt.X := X;
  Punkt.Y := Y;
  Punkt := (Sender as TPanel).ClientToScreen(Punkt);
  Punkt := ((Sender as TPanel).Parent as TPanel).ScreenToClient(Punkt);
  ((Sender as TPanel).Parent as TPanel).OnMouseUp((Sender as TPanel).Parent, Button, Shift, Punkt.X, Punkt.Y);
Somit dürfte (theoretisch) das OnMouseUp des Parent mit den "richtigen" Koordinaten versehen sein.
Ein direktes Auslösen dürfte nicht möglich sein, glaub ich, da ja immer das ClientPanel im Weg sein wird (z.B. beim Mausklick simulieren)
Manuel
  Mit Zitat antworten Zitat