procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin with SpeedButton1 do begin if key=#13 then begin Key:=#0; Perform(WM_NEXTDLGCTL,0,0); //焦点下一个控件 SpeedButton1.OnClick(application); end; end; end;
to ehom(?!) bitbtn是窗体 speedbutton不是窗体 这怎么理解啊,我不明白啊。我只知道他们都是控件,可以说清楚点吗?不胜感激。to bnabinge(狂欢) 不那不是把SpeedButton1.OnClick(application);直接就执行了吗?都还没让用户确认是否要执行就onclick了啊
speedbutton同样是按钮啊!bitbtn 真的也不能不突出来?
bitbtn 也一样
begin
with SpeedButton1 do
begin
if key=#13 then
begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0); //焦点下一个控件
SpeedButton1.OnClick(application);
end;
end;
end;
bitbtn是窗体 speedbutton不是窗体 这怎么理解啊,我不明白啊。我只知道他们都是控件,可以说清楚点吗?不胜感激。to bnabinge(狂欢)
不那不是把SpeedButton1.OnClick(application);直接就执行了吗?都还没让用户确认是否要执行就onclick了啊
---------------------------------
tbitbtn继承自twincontrol,tspeedbutton继承自TGraphicControl,所以有上述说法,其实大概讲就是twincontrol的子类都分配有handle,可以获得焦点。
别骂我啊,早知道这么多要学我就多下点分拉。
TGraphicControl 是制图类的,不属于窗体对吗?是这样理解吗 ?