例如:有form1、form2 两个窗体,form1中有两个按钮,
button2是显示form2并将焦点设置于edit3。 程序如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R dfm}
procedure TForm1Button1Click(Sender: TObject);
begin
form1SetFocus;
end;
procedure TForm1Button2Click(Sender: TObject);
begin
form2Show;
//form2setfocus;
form2Edit3SetFocus;
end;
end
以上就是关于delphi中的窗体怎么取得焦点全部的内容,包括:delphi中的窗体怎么取得焦点、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)