Step by step

Folks,

For everybody that needs the ToolButton position:

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

Hugs!

Tags: Delphi, GetDCOrgEx, ToolButtonScreenPos, Usefull functions

This entry was posted on Monday, September 1st, 2008 at 8:26 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.