当前位置:首页>开发>正文

关于Delphi的PageControl使用问题! 求delphi中PageControl的使用方法?

2023-04-21 21:30:29 互联网 未知 开发

 关于Delphi的PageControl使用问题! 求delphi中PageControl的使用方法?

关于Delphi的PageControl使用问题!

在TabSheet1上放置button2,TabSheet2上放置button1。one和two都是全局变量!然后在TabSheet SHOW时间中就可以实现了!

procedure TForm1.TabSheet1Show(Sender: TObject)
begin
if one then
begin
ShowMessage(1)//换成你刷新数据的动作
one:=false
end
end

procedure TForm1.TabSheet2Show(Sender: TObject)
begin
if two then
begin
ShowMessage(2)//换成你刷新数据的动作
two:=false
end
end

procedure TForm1.Button1Click(Sender: TObject)
begin
one := true
two := false
end

procedure TForm1.FormShow(Sender: TObject)
begin
one := false
two := false
end

procedure TForm1.Button2Click(Sender: TObject)
begin
two := true
one := false
end

求delphi中PageControl的使用方法?

pagecontrol放不下窗体
一个窗体调其他窗体:
Tmain.button1.click()
begin
firstform:=Tfirstform.create(application)
firstform.showmodal
firstform.free
end

这里main是主窗体,按钮单击事件里调了第二个窗体

Delphi 怎么把控件拖进pagecontrol里

虽然是三个窗体,但是实际上还是在一个单元里的,也就是还是位于同一个Form里的。 这时候不需要什么特殊的操作,直接操作其他page里的控件就可以了。 比如要在第一个Page里点击按钮改变第三个Page里的文本框内容: unit Unit1 interface uses W

最新文章