[DOR]

На просторах инета как то находил код. он определял координаты буттона и под ним выводил ПопупМеню. Если кто сталкивался с таким, напишите пжл код или дайте ссылся. Спасибо.

[poli-smen]

Сообщение от DOR

На просторах инета как то находил код. он определял координаты буттона и под ним выводил ПопупМеню. Если кто сталкивался с таким, напишите пжл код или дайте ссылся. Спасибо.

Примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  pt: TPoint;
begin
  pt := Point(Button1.Left, Button1.Top + Button1.Height);
  pt := ClientToScreen(pt);
  PopupMenu1.Popup(pt.X, pt.Y);
end;

[M.A.D.M.A.N.]

Сообщение от poli-smen

Примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  pt: TPoint;
begin
  pt := Point(Button1.Left, Button1.Top + Button1.Height);
  pt := ClientToScreen(pt);
  PopupMenu1.Popup(pt.X, pt.Y);
end;

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  pt: TPoint;
begin
  with Sender as TButton do
  begin
    pt := Point(Left, Top + Height);
    pt := Parent.ClientToScreen(pt);
  end;
  PopupMenu1.Popup(pt.X, pt.Y);
end;

[DOR]

Код:

pt: TPoint;

а что это означает?
ругается на

Код:

pt := Point(Left, Top + Height);

[angvelem]

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

Это переменная, открой справку и прочитай про TPoint.

Не подключен SysUtils в uses.

[YVitaliy]

Сообщение от angvelem

Ну раз обработчик принадлежит кнопке

procedure TForm1.

Метод обьекта формы, self указывает на форму.

Point - функция из модуля Classes

[DOR]

Сообщение от angvelem

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

Это переменная, открой справку и прочитай про TPoint.

Не подключен SysUtils в uses.

SysUtils подключен.