WM_MOUSEMOVE in mehr als einem TControl verarbeiten.

[Ghostwalker]

@Zacherl

Öhm....da sagt die Doku von Emba aber was anderes. Lt. derer hat TImage einen Canvas auf das es zeichnet.

[Ghostwalker]

Hmm...also wenn ich den code in Post #9 angugg, dann ist der Parent sowohl vom Image als auch vom Selection jeweils das PANEL.

Da würd ich WM_MOUSEMOVE im Panel abfangen, und dann sowohl ans Image schicken als auch ans Selection-Control, so das beide tun, was immer sie da machen sollen (SendMessage oder PostMessage).

Das sollte eigentlich funktionieren.

[EWeiss]

Zitat von Ghostwalker:

Das sollte eigentlich funktionieren.

Nein funktioniert nicht..

Da beide Controls TImage und seine eigene Ableitung von TGraphicControl wie auch immer sie benannt wurden
über kein eigenes Fenster bzw.. Handle verfügen gibt es auch keine Parent für diese Controls.
Hier einfach das Panel als Parent zu definieren wäre also sinnlos denn beide Controls wissen doch gar nichts vom Panel.

Ohne das sie wissen was ihr Parent ist können sie auch nichts übergeben bzw. Messagen schicken.
Außerdem haben beide Controls KEIN Handle was willst du also vom Panel aus wohin schicken mit (SendMessage oder PostMessage)?

Wie soll das gehen ?
HandleZumSenden := GetParent(HabeKeinEigenesHandleUmDasParentAbzufragen);
Ich hatte ihm ein SubClassed Beispiel gepostet das nicht verwendet wurde basierend auf einem STATIC Window mit realen Handle.

Delphi-Quellcode:

    dwStyle := SS_BITMAP or SS_CENTERIMAGE or SS_NOTIFY or WS_CHILD or WS_VISIBLE;
    dwExStyle := WS_EX_STATICEDGE;
    Result := CreateWindowEx(dwExStyle, 'STATIC', '', dwStyle, 5 , 5, rc.Right - 10, rc.Bottom - 10,
      Panel1.Handle, 0, hInstance, nil);

Delphi-Quellcode:

procedure TMyButton.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin

  self.Caption:='Button:' +inttostr(x)+','+inttostr(y);
  GetCursorPos(p);
  Windows.ScreenToClient(GetParent(Handle), p);
  // Dein vorheriges Image was kein Handle hat
  // ersetzt mit einem STATIC Window
  SendMessage(hImage, WM_MOUSEMOVE, 0, Makelong(p.x, p.y));
end;

Delphi-Quellcode:

    WM_MOUSEMOVE:
      begin
        DC := GetDC(WinHandle);
        txt := PWideChar('Image: '+inttostr(LoWord(lp))+','+inttostr(HiWord(lp)));
        SetTextColor(DC, RGB(255, 0, 0));
        TextOut(DC, 1,1,txt, Length(txt));
        ReleaseDC(WinHandle, DC);
      end;

Wenn es nicht benutzt oder verwendet wird kann ich auch nichts machen.
oops.. sehe gerade war doch schon raus aus dem Thread.

Zitat:

egal über welchem Control sich dein Mousezeiger befindet

@Holger Die Lösung ist nicht schlecht funktioniert aber nur wenn das Control unter dem Mauszeiger auch über ein Handle (eigenes Fenster)verfügt.
Siehe http://www.delphipraxis.net/attachme...iten-31.05.jpg

gruss

[Ghostwalker]

@EWeiss

Doch, die Basisklasse TGraphiControl hat bereits die eigenschaft Parent (sogar TControl). So stehts zumindest in der Doku. (siehe Anhang)

[EWeiss]

Zitat von Ghostwalker:

@EWeiss

Doch, die Basisklasse TGraphiControl hat bereits die eigenschaft Parent (sogar TControl). So stehts zumindest in der Doku. (siehe Anhang)

Mag ja sein aber wie auch @Zacherl schon sagte ohne Handle bringt das alles nichts.
Und für ein TImage\TGraphiControl das Handle aus der weit entfernten Ableitung TControl zu holen dürfte schwer fallen.
Also ein Panel verwenden oder alles in TPaintBox zeichnen.

Zitat:

Diese beinhaltet die Grafik, welche dann letztlich aber auf das Canvas vom Parent Control gezeichnet wird.

Es gibt kein Parent für TImage im herkömmlichen sinne da kein Fenster vorhanden ist.

Nochmal siehe meinen Screenshot.
http://www.delphipraxis.net/attachme...iten-31.05.jpg
Wenn es ein Parent gäbe wäre das TImage in der Liste der Child Controls von TForm gelistet.

gruss

[Ghostwalker]

[QUOTE=EWeiss;1373225]

Zitat von Ghostwalker:

@EWeiss

Doch, die Basisklasse TGraphiControl hat bereits die eigenschaft Parent (sogar TControl). So stehts zumindest in der Doku. (siehe Anhang)

Mag ja sein aber wie auch @Zacherl schon sagte ohne Handle bringt das alles nichts.
Und für ein TImage\TGraphiControl das Handle aus der weit entfernten Ableitung TControl zu holen dürfte schwer fallen.
Also ein Panel verwenden oder alles in TPaintBox zeichnen.
[QUOTE]

Ich sagte das die PARENT-Eigenschaft schon in TControl vorhanden ist. Ein eigenes Fensterhandle hat TImage nicht. Wohl aber der Parent. Und auf dessen Handle kann ich via TImage.parent.handle zugreifen

In diesem Fall wärs eh einfacher, er fängt das WM_MOUSEMOVE im Panel ab und erledigt dort die entsprechenden Arbeiten. Das spart das ganze hin und her mit zwei Komponenten

[EWeiss]

Zitat:

In diesem Fall wärs eh einfacher, er fängt das WM_MOUSEMOVE im Panel ab und erledigt dort die entsprechenden Arbeiten. Das spart das ganze hin und her mit zwei Komponenten

Richtig Uwe, denke aber das es sich für ihn eh schon erledigt hat.

gruss

[Zacherl]

Zitat von Ghostwalker:

Öhm....da sagt die Doku von Emba aber was anderes. Lt. derer hat TImage einen Canvas auf das es zeichnet.

Klar, hat das TImage eine Canvas Eigenschaft. Diese ist allerdings nicht wie bei TWinControl an ein eigenständiges Handle gebunden, sondern intern lediglich eine TBitmap Instanz. Diese beinhaltet die Grafik, welche dann letztlich aber auf das Canvas vom Parent Control gezeichnet wird.

Zitat von Ghostwalker:

Da würd ich WM_MOUSEMOVE im Panel abfangen, und dann sowohl ans Image schicken als auch ans Selection-Control, so das beide tun, was immer sie da machen sollen (SendMessage oder PostMessage).

Dürfte schwierig werden eine Message an ein Control ohne WindowHandle zu schicken