Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#5

AW: WM_MOUSEMOVE in mehr als einem TControl verarbeiten.

  Alt 30. Mai 2017, 16:44
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?
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat