WM_MOUSEMOVE in mehr als einem TControl verarbeiten.

[alleinherrscher]

Hi@all.

Habe vermutlich eine ziemlich einfache Frage, auf die ich aber keine schöne Lösung gefunden habe: Wie kann ich WM_MOUSEMOVE messages in mehr als einem TControl verarbeiten?

Hintergrund: Ich habe ein tImage, was bei einem OnMouseMove Event kleine Pfeile auf den dazugehörigen Linealen außerhalb des TImages bewegen soll. Das funktioniert auch. Jetzt habe ich zusätzlich ein eigenes TGraphicControl abgeleitet, mit welchem ich eine Art Selektierbox erstellen möchte, um bestimmte Bildbereiche auf dem TImage auszuwählen. Mein TGraphicControl ist somit ein Child des TImages. Sobald ich mit der Maus über das TGraphicControl fahre, werden die WM_MOUSEMOVE Messages natürlich von TImage zum TGraphicControl weitergeleitet. Damit bleiben die Pfeilchen an einen Linealen stehen, was ich aber nicht möchte.

Ich habe es schon mit WndProc(var Message: TMessage) versucht, um die WM_MOUSEMOVE messages wieder an das TImage zu leiten, aber das gibt natürlich eine Endlosschleife...

Beste Grüße und vielen Dank,
Michael

[EWeiss]

Subclass dein Control und gut ist

Oder die WM_MOUSEMOVE Message vom TImage nicht behandeln. (bzw.. dein TGraphicControl wenn es die Messagen weiterleitet und du das nicht willst)

Delphi-Quellcode:

WM_MOUSEMOVE:
  begin
    Result := 1;
    Exit;
  end;

gruss

[alleinherrscher]

Hey EWeiss,

vielen Dank für die schnelle Hilfe! Auf die Gefahr hin, wie ein totaler Neuling zu wirken: Was meinst du mit "Subclass dein Control" - ist es das nicht schon, wenn ich eine Klasse von TGraphicControl ableite? Und wo genau müsste ich deinen Codeschnipsel unterbringen?

Besten Gruß,
Michael

[EWeiss]

Jedes Control hat doch seine eigene message quewe..

Du hattest doch schon den Anfang gemacht so wie ich gelesen habe.

Zitat:

Ich habe es schon mit WndProc(var msg: TMessage) versucht, um die WM_MOUSEMOVE messages wieder an das TImage zu leiten

genau so und dort..

Delphi-Quellcode:

if msg.Message = WM_MOUSEMOVE then
 bla.. bla..

Du musst nur dafür sorgen das die Message dann an das TImage nicht weitergeleitet wird.
Wenn ich dich richtig verstanden habe.

gruss

[alleinherrscher]

Also: Momentan habe ich es so:

Delphi-Quellcode:

procedure TSelection.WndProc(var Message: TMessage);
begin
  inherited;
  if (Parent <> nil) and (Parent.HandleAllocated) then
    if Message.Msg=WM_MOUSEMOVE then
       Message.Result:=1; //oder 0 oder LongInt(False), keine Änderung
end;

In TSelection (abgeleitet von TGraphicControl) funktioniert MouseMove -> soll auch so sein
Im Parent funktioniert MouseMove nicht, wenn die Maus auf dem TSelection Control ist. -> schlecht!

//Edit: Ah, habe ich falschherum gedacht, und muss mich um WndProc des Parents kümmern?

[EWeiss]

Zitat:

Edit: Ah, habe ich falschherum gedacht, und muss mich um WndProc des Parents kümmern?

Versuchs einfach mal ist ja kein Aufwand

Das weiterleiten der WM_MOUSEMOVE Message an das Parent Fenster mache ich auf diese weise.

Delphi-Quellcode:

    WM_MOUSEMOVE:
      SendMessageW(GetParent(WinHandle), WM_MOUSEMOVE, MakeLong(GetDlgCtrlID(WinHandle), 0), 0);

gruss

[alleinherrscher]

Wessen Handle wäre denn dann WinHandle?

[EWeiss]

Zitat von alleinherrscher:

Wessen Handle wäre denn dann WinHandle?

Das eigene bzw. das Window welches die Message versendet.

Zitat:

Mein TGraphicControl ist somit ein Child des TImages

Überlege gerade..

Eigentlich ist doch TImage 'STATIC' oder ? Wie kann dann TGraphicControl ein Child von TImage sein.
Ich glaube du behandelst das falsche Parent.
Verwende mal irgendein Spy Tool und prüfe welches Parent welches Control denn nun wirklich hat.

gruss

[alleinherrscher]

Moment ich glaube wir brauchen mal was mehr Code:

Delphi-Quellcode:

TSelection = class(TGraphicControl)
private
   //[...]
public
  constructor Create(AOwner: TComponent; X,Y:integer);
published
  property OnMouseMove;
protected
  procedure Paint; override;
  procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  procedure WndProc(var Message: TMessage); override;
end;


Tf2DData = class(TForm)
 imgData: TImage;
 //[...]
 procedure imgDataMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer); 
 private
    { Private-Deklarationen }
     //[...]
     procedure SelectionBoxTest;
 public
    { Public-Deklarationen }

end;

procedure Tf2DData.SelectionBoxTest;
var test:TSelection;
begin 
  test:=TSelection.Create(self,100,100);
  test.Parent:=PanImage;
end;

So, imgDataMouseMove wird logischerweise nicht mehr aufgerufen, wenn der Mauscursor oberhalb von TSelection ist. Die obigen Codes können das bisher nicht verhindern und wenn ich an ImgData eine WM_MOUSEMOVE Nachricht schicke, bekomme ich einen STACK Overflow, vermutlich weil ImgData die Nachricht dann wieder an TSelection weiterschickt ...

//edit: ich sehe gerade, dass du Recht hast: Ich habe das Panel, auf welchem ImgData liegt, als Parent angegeben und nicht das Image ImgData selbst. Mein Fehler... sorry!! Aber wie löse ich das generelle Problem? Eine Nachricht direkt an ImgData? Aber wie finde ich allgemein heraus, welches Objekt unterhalb meiner TSelectionBox liegt, an die ich die Nachricht schicken muss?

[EWeiss]

Lade mal die Exe hoch wenn es geht muss die mal analysieren.
So bringt mir das nichts.

Zitat:

Aber wie finde ich allgemein heraus, welches Objekt unterhalb meiner TSelectionBox liegt, an die ich die Nachricht schicken muss?

Ein Spy Tool?

Zitat:

als Parent angegeben und nicht das Image ImgData selbst

TImage kann kein Parent sein. Es ist "STATIC"
Parent ist das Window auf dem das TImage als Child abgelegt wurde.

Versuche doch mal folgendes.
Erstelle eine Simple Form pack ein Image drauf und versuche dann einen Button in das Image zu setzen.

gruss