Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
31. Mai 2017
Schade, aber wie teilt denn das Panel (oder die Form) dem Image mit, dass sich gerade die Maus darauf bewegt und kann man da nicht irgendwie eingreifen? Oder beim Bearbeiten des WM_MouseMove im TButton irgendwie zurückmelden, dass die Nachricht nicht verarbeitet worden ist, oder so? -> Message.Result... ?
//edit gut, dann werde ich wohl vermutlich auf die Variante umsteigen, alles in eine...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
31. Mai 2017
Das meinte ich leider auch nicht. Sorry! Wie man zwischen Client und Parent Koordinaten umrechnet, ist mir klar. Guck mal, du hast jetzt beide TextOuts in Button1MouseMove gepackt. Genau das wollte ich aber ja nicht, weil es nicht allgemein genug ist. Vielleicht geht das, was ich vorhabe einfach nicht...
Guck dir bitte, wenn du Zeit hast, nochmal modifizierte Beispiel im Anhang an. Ich habe...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
31. Mai 2017
Okay, ich versuche es mit dem Mousemove des TForms! Danke!!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
31. Mai 2017
Nein, nein, nein. Alles viel zu kompliziert. Sorry! Sieh dir bitte nochmal das Testtool an: Ich möchte einfach nur, dass der Text "Image: x,y" sich immer noch ändert, wenn ich mit der Maus über den Button fahre, und das, ohne dass ich dafür das OnMouseMove des Buttons verwende. Das muss doch möglich sein?
Oder eben in kompletter Analogie: s. Anhang: Ich möchte, dass sich die mit roten Kreisen...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
31. Mai 2017
Wie kommst du denn bitte darauf??? Es geht doch nur um 2 Controls, die beide in meiner Anwendung übereinander liegen und die beide ein Mousemove ausführen sollen. Ich will nichts an ein anderes Programm oder sonst was weiterleiten?! Nur an das Control, welches unter meinem TGraphicControl liegt und was in meinem Fall ein Image ist.
Richtig!
Parent ist das Panel, auf dem auch das TImage...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
31. Mai 2017
Moment ich glaube wir brauchen mal was mehr Code:
TSelection = class(TGraphicControl)
private
//
public
constructor Create(AOwner: TComponent; X,Y:integer);
published
property OnMouseMove;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
30. Mai 2017
Also: Momentan habe ich es so:
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
30. Mai 2017
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
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alleinherrscher,
30. Mai 2017
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...