Cursorposition abfragen während OnResize-Event?

[br_klaus]

Hallo, ich habe eine Form mit einem TImage.
Weiß jemand eine Möglichkeit, wie man die Position des Cursors (bzw die gerade aktuellen Maße der Form) WÄHREND des OnResize-Events abfragen und dementsprechend das davon abhängige Bild (TImage) ändern kann?
Bis jetzt sehe ich nur die Möglichkeit, die Größenänderung der Form abzuschließen und dann über OnResize die Veränderung der Höhe und Breite zu verarbeiten. Ich bräuchte einen Bezugspunkt außerhalb der Form. Vielleicht geht es irgendwie über die (Windows-) Messages, die während der Größenänderung gesendet werden?
Herzlichen Dank!
P. Nikolaus

[Socke]

Weiß jemand eine Möglichkeit, wie man die Position des Cursors (bzw die gerade aktuellen Maße der Form) WÄHREND des OnResize-Events abfragen und dementsprechend das davon abhängige Bild (TImage) ändern kann?

Die aktuelle Position des Mauszeigers kannst du über Forms.Mouse.CursorPos abfragen

Bis jetzt sehe ich nur die Möglichkeit, die Größenänderung der Form abzuschließen und dann über OnResize die Veränderung der Höhe und Breite zu verarbeiten. Ich bräuchte einen Bezugspunkt außerhalb der Form. Vielleicht geht es irgendwie über die (Windows-) Messages, die während der Größenänderung gesendet werden?

Mir ist nicht wirklich klar, was du erreichen willst. Insbesondere ist mir nicht klar, inwiefern du zum Berechnen der Größe eines Steuerelementes eine Bezugsgröße außerhalb des Formulars benötigst -- zumal die Mausposition auch eine Position haben kann, die nichts mit der Größenänderung zu tun hat (bspw. über einen Doppelklick in die Kopfzeile).

[MAC]

der meinung bin ich auch.
Wenn du das OnResize kontrolieren willst.
Dann nimm BorderStyle = bsnone und erarbeite das resizen selber - ist nicht schwer, sieht am ende nur nicht schön aus

[br_klaus]

Und gibt es eine Möglichkeit, die aktuelle Formgröße zu ermitteln WÄHREND des Onresize? Normalerweise bleibt ja die Form davon unberührt, erst beim Loslassen der Maus werden die Änderungen wirksam.
Kann man die Änderungen schon während der Mausbewegung sichtbar machen?

[Socke]

Und gibt es eine Möglichkeit, die aktuelle Formgröße zu ermitteln WÄHREND des Onresize? Normalerweise bleibt ja die Form davon unberührt, erst beim Loslassen der Maus werden die Änderungen wirksam.

Ich kann mir vorstellen, dass dies auch vom jeweiligen Window-Manager abhängig ist, also unter einigen Window-Managern überhaupt nicht funktioniert. Aber in diesen Fällen dürfte das Formular bis zur Größenänderung auch gar nicht mitbekommen, dass die Größe geändert wird, und somit OnResize gar nicht erst auslösen.

Bei mir (Debian 6, GNOME, Metacity, GTK 2) füllt dieser Code meine Listbox wunderbar:

Code: Alles auswählen

var
  r: TRect;
begin
  r := BoundsRect;
  ListBox1.Items.Add(IntToStr(r.Right - r.Left)+'x'+IntToStr(r.Bottom-r.Top));
  Application.ProcessMessages;
end;

[br_klaus]

Und wo bzw wann wird dieser Code aufgerufen?

[Socke]

Und wo bzw wann wird dieser Code aufgerufen?

Beispielsweise

WÄHREND des Onresize

oder auch in OnChangeBounds (das wird direkt davor aufgerufen) -- je nachdem was du willst.

Inwiefern das Application.ProcessMessages(); wichtig ist, kann ich dir nicht sagen; ich habs einfach mal reingeschrieben, damit auf jeden Fall neu gezeichnet wird und ich die Einträge in der ListBox sehe.