Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
6. Dez 2013
Und selbst ohne die Point-Funktion wäre es gegangen. :angle2:
So fällt vermutlich auch nochmal besser auf, was da eigentlich gemacht wird.
var
MyPos: TPoint;
begin
MyPos.X := MenuImage.Left + MenuImage.Width div 2;
MyPos.Y := MenuImage.Top + MenuImage.Height div 2;
MyPos := ClientToScreen(MyPos);
MenuSettingsPopupMenu.Popup(MyPos.X, MyPos.Y);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
6. Dez 2013
Wobei ich mich nun Frage, wozu die die Variablen X und Y eigentlich brauchst.
Und fällt dir was auf?
k.A., wieso du das bei dem Anderen nicht mitbekommen hast.
PS: Mouse.CursorPos
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
6. Dez 2013
siehe #4
Aber du meinst bestimmt auch ClientToScreen.
Bei ScreenToClient wären die Koordinaten negativ, da es die relativen Koordinaten auf zum Desktop wären, aus Sicht der Komponente.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
5. Dez 2013
Ist dir schonmal aufgefallen, daß eine Form meistens einen Rahmen hat?
Den solltest du auch mit einrechnen.
> Darum gibt es z.B. zum Width auch noch das ClientWidth
PS: Self.ClientToScreen