Координаты для создания компонента

[artemavd]

Добрый день!
Получаю координаты указателя на форме:
...

 begin
  L:=ScreenToClient(Mouse.CursorPos).X;
  T:=ScreenToClient(Mouse.CursorPos).Y;
 end;

...
далее мне надо создать кнопку по координатам полученным:

 
 begin
  B.Left:=L;
  B.Top:=T;
 end;

Но у меня почему-то не получается. Получается, что кнопка создается в совершенно другом месте, не в том, где я получал координаты указателя. Прошу помочь в правильности приведения координат.

[maloun]

если рисуется дальше чем координаты, попробуй вычесть координаты компонента на котором создаешь кнопку

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1Click(Sender: TObject);
var
  btn:TButton;
begin
  btn:=TButton.Create(Panel1);
  btn.Parent:=Panel1;
  btn.Left:=ScreenToClient(Mouse.CursorPos).X - Panel1.Left;
  btn.Top:=ScreenToClient(Mouse.CursorPos).Y - Panel1.Top;
end;

end.

[artemavd]

Не, у меня кнопка создается на форме, не на каком-то другом компоненте.
Попробовал вместо панели форму написать, неправильный пересчет координат получается.

[maloun]

у меня все работает, выкладывай свой код

[evg_m]

var
  p: TPoint;
begin
  ...
  btn.Parent:=Panel1;
  p:=Panel1.ScreenToClient(Mouse.CursorPos);
  btn.top:=p.Y+2;
  btn.left:=p.X+2;

[artemavd]

Я свой код выложил. Я забыл сказать вот что.
У меня процедура создания кнопки вынесена в отдельный модуль. Соответственно, значение L и T из моего кода передается туда из обычной формы.
Может быть что-то при передаче значений неправильно приводится? У меня вроде бы также как и в твоем вложении сделано было, подобно, однако, не работало.

[maloun]

ну хз, может ты L и T местами поменял)
никаких подводных камней в работе с параметрами процедур в других модулях нет, а стоп - есть...) посмотри если у тебя в другом модуле есть глобальные переменные с такими же именами или еще че-нить такое,
убедись в том что параметры действительно передаются в твою процедуру и действительно используются для установки координат кнопке

[Foreseen]

Хз, без всяких костылей все работает

var
   X, Y: integer;
   bt: TButton;
begin
   X:=Form1.ScreenToClient(Mouse.CursorPos).X;
   Y:=Form1.ScreenToClient(Mouse.CursorPos).Y;
   bt:=TButton.create(Form1);
   bt.Parent:=Form1;
   bt.Top:=Y;
   bt.Left:=X;
end;

[artemavd]

А можно ли написать так, чтобы новая кнопка всегда создавалась строго по центру формы?

[Аватар]

Кнопка.Left:=(ClientWidth-Кнопка.Width) div 2;
Для Top аналогично