SpeedButton

[mustang007]

Подскажите пожалуйста как зделать: вот нажимаю я на speedbutton и а рядом с ним появляется окошко.

[Neeter]

Окошко - это форма другая?
Если да, то вот код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 p: TPoint;
begin
 p := SpeedButton1.ClientToScreen(Point(0, 0));   //Получаем координаты кнопки относительно экрана
 Form2.Left := p.X;
 Form2.Top := p.Y + SpeedButton1.Height;
 Form2.Show;
end;

[mustang007]

нет не форма. когда я нажимаю на speedbutton должно появится окошко примерно как в mainmenu

[Neeter]

Это еще легче
Кинь на форму TPopupMenu(при двойном нажатии открывается редактор менюшек)

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

[Kotofff]

так окошко или меню ???
если окошко - тебе уже ответил Neeter,
если меню то можно (в добавок к варианту от Neeter) так:

// функция выпадания меню возле чего угодно
procedure Popup(Sender: TWinControl; pm: TPopupMenu);
var
  xPoint: TPoint;
begin
  GetParentForm(TWinControl(Sender)).SendCancelMode(nil);
  pm.PopupComponent := TWinControl(Sender);
  xPoint := Point(-1, TWinControl(Sender).Height);
  with TWinControl(Sender).ClientToScreen(xPoint) do pm.Popup(x, y);
end;

Использование :

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Popup(TWincontrol(Sender), PopupMenu1);
end;

Соответственно PopupMenu1 заранее создай ...

[Neeter]

Можно еще так:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 p: TPoint;
begin
 GetCursorPos(p);
 PopupMenu1.Popup(p.X, p.Y);
end;