Finding absolute screen position of a component

[John Antoniewicz]

Hello,

I am using Delphi 3.02 pro in Windows 95. What I would like to is to have
a Delphi application's open up a Delphi Dialog/Input box to the left and
bottom of the pressed button inside of main form.

Thank you,
John

[Alex Simonetti]

procedure TForm1.Button1Click(Sender: TObject);
var
ptButton : TPoint;
AbsPos : TPoint;
begin
if not (Sender is TWinControl) then exit;
ptButton.y := TWinControl(Sender).height;
ptButton.x := 0;
AbsPos := TWinControl(Sender).ClientToScreen(ptButton);
end;

After the routine is run, AbsPox.X and AbsPos.Y hold the values you want.

The trick here is the method ClientToScreen, which converts a controls
TPoint coordinate to absolute (screen) coordinate.

Yours,
- - - - - - - - - - - - - - - - - - - - - - -
Alex Simonetti Abreu
Belo Horizonte, MG, Brazil
Check out Resource Explorer --- The best of its kind.
Athena's Home: http://www.bhnet.com.br/~simonet
- - - - - - - - - - - - - - - - - - - - - - -
John Antoniewicz wrote in message <6mm7eh$hh...@forums.borland.com>...

[Ralph Friedman (TeamB)]

John:

Take a look at the ClientToScreen and ScreenToClient functions.

--
Regards
Ralph (TeamB)
Herrsching, Germany

[John Antoniewicz]

Thank you for your suggestion.

Thank you,
John