楼主那个 TouchEdit.pas 抄了我发布的一个开源控件,删除了原作者信息,真不够意思!代码比较图: http://www.delphibbs.com/keylife/images/u45054/Merge1.jpg原始控件下载地址:http://www.2ccc.com/article.asp?articleid=4145楼主只作了一点修改:procedure TButtonEdit.BtnClickHandler(Sender: TObject);var P,p1,p2:Tpoint;
begin
p2:=point(self.Left,self.top);
//相对于上级容器 p1:=self.Parent.ClientToScreen(p2);
softkey.CallMe(self.Handle,p1.X,p1.Y,self.width,self.Height);
end;