ClientToScreen liefert Punkte ohne Border

[Michl]

Servus,

habe da ein Problem entdeckt und wollte wissen, wie sich dieses auf anderen Plattformen verhält.

Versuche ich ein Formular an eine Stelle von einem Control zu platzieren, so benötige ich ClientToScreen. Das funktioniert nur bei einigen Controls (z.B. TPanel, TButton). Andere Controls (z.B. TEdit, TMemo) liefern ein Ergebnis ohne Berücksichtigung der Border zurück. Wiederrum andere Controls (z.B. TGroupBox) liefern per LCL ein Ergebnis ohne Border zurück, nutze ich direkt Windows.ClientToScreen, so bekomme ich ein korrektes Ergebnis:

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
var
  aForm: TForm;
  i: Integer;
  p: TPoint;
  WC: TWinControl;
begin
  for i := 0 to ComponentCount - 1 do
  if Components[i] is TWinControl then
  begin
    WC := Components[i] as TWinControl;
    p := classes.Point(0, 0);
//    windows.ClientToScreen(WC.Handle, p);
    p := WC.ClientToScreen(p);
    aForm := TForm.CreateNew(Self);
    aForm.SetBounds(p.x + WC.Width, p.y, 10, WC.Height);
    aForm.Color := clGreen;
    aForm.BorderStyle := bsNone;
    aForm.FormStyle := fsStayOnTop;
    aForm.Show;
  end;
end; 

Habe ich einen Denkfehler?
Wie verhält sich dies unter Linux?

Beispielsnapshot und Testprogramm anbei.

[wp_xyz]

Oje, ich denke, da hast du ins Wespennest getroffen:

[wp_xyz]

Oje, ich denke, da hast du ins Wespennest getroffen: Linux Mint gtk2

und qt

[Michl]

Oha, und ich dachte, die Controls, die unter Windows ein falsches Ergebnis zurückliefern, wären ein Problem.

Werde heute abend ein Bugreport dazu aufmachen.

Aber erstmal vielen Dank für die Info!

[Michl]

Hallo wp,

ich habe nochmal eine Weile darüber nachgedacht und festgestellt, dass dies ein Denkfehler von mir war. Unter Windows passt das bei den meisten Controls, da ClientToScreen die Koordinate vom Client wiedergibt (https://msdn.microsoft.com/de-de/librar ... 85%29.aspx). Daher muss die Border bei dem Beispiel mit berücksichtigt werden.

Die gewünschte Funktion ist nicht ClientToScreen, sondern ControlToScreen, dann passt das Beispiel hier.

Sorry für die Umstände