[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 подключен.

[angvelem]

Да-да, что то я про принадлежность Point не то ляпнул.

[YVitaliy]

Если не подключен Classes то подключи, иначе, мб., пиши

Код:

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

[DOR]

Код:

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

помогло. Большое спасибо всем кто откликнулся.

[DOR]

а можно чтобы срабатывало не по клику, а при наведении на кнопку мыши.

[YVitaliy]

Если есть у кнопки событие OnMouseEnter - то легко. Если же нет, то в OnMouseMove, но с некоторыми дополнительными условиями.

[DOR]

Enter нет, только Move. Вы можете поправить код?

Код:

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

[YVitaliy]

Код:

procedure TForm1.sbt_StatMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  pt: TPoint;
begin
  sbt_Stat.Perform( BM_SETSTATE, 1, 0 );
  with Sender as TButton do
  begin
    pt := Point(Left, Top + Height);
    pt := Parent.ClientToScreen(pt);
  end;
  PopupMenu1.Popup(pt.X, pt.Y);
  sbt_Stat.Perform( BM_SETSTATE, 0, 0 );
end;

В OnMouseMove.

[DOR]

Работает. Спасибо.