Step by step

Folks,

For everybody that needs the Speedbutton position:

 Delphi | 
 copy code |
?
 
1
type
2
  TSpeedButtonAccess = class(TSpeedButton);
3
 
4
function SpeedButtonScreenPos(ASpeedButton: TSpeedButton): TPoint;
5
begin
6
  GetDCOrgEx(TSpeedButtonAccess(ASpeedButton).Canvas.Handle, Result);
7
  Inc(Result.X, ASpeedButton.Left);
8
  Inc(Result.Y, ASpeedButton.Top);
9
end;

Hugs!

Tags: Delphi, GetDCOrgEx, SpeedButtonScreenPos, Usefull functions

This entry was posted on Monday, September 1st, 2008 at 8:24 pm and is filed under articles. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.