- This topic has 2 replies, 2 voices, and was last updated 13 years, 5 months ago by
.
Viewing 2 posts - 1 through 2 (of 2 total)
-
Posts
-
Hello
I think, you can use this code :
Code:procedure TForm1.sButton1Click(Sender: TObject);
var
p : TPoint;
begin
p := sButton1.ClientToScreen(Point(0, 0));
PopupMenu1.Popup(p.X, p.Y + sButton1.Height);
end;Hey, thank you SO MUCH. It worked like a charm. Great trick.
Kind regards,
Twobit.
'Support' wrote:Hello
I think, you can use this code :
Code:procedure TForm1.sButton1Click(Sender: TObject);
var
p : TPoint;
begin
p := sButton1.ClientToScreen(Point(0, 0));
PopupMenu1.Popup(p.X, p.Y + sButton1.Height);
end;
Viewing 2 posts - 1 through 2 (of 2 total)
- You must be logged in to reply to this topic.