[twobit]

Thanks, it worked A-OK. Although the presence of both Visible and TabVisible is really confusing.

Thanks again,

twobit

[twobit]

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;

[Author]

Posts