Delphi CardPanel1 简单的切换

本文整理自网络，侵删。

 


procedure TForm1.Button2Click(Sender: TObject);
begin
CardPanel1.ActiveCard.CardPanel.ActiveCardIndex:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
CardPanel1.ActiveCard.CardPanel.ActiveCardIndex:=1;
end;

CardPanel1.ActiveCard.CardPanel.NextCard;  //循环切换

 

相关阅读 >>

Delphi 截取绝对路径的文件名

Delphi 免杀下载者代码

Delphi 根据关键字取关键词以后的字符串

Delphi 之 tpagecontrol组件

Delphi api: setwindowpos改变窗口的位置与状态

Delphi 查看指定进程占用端口

Delphi 在tmemo中查找文本

Delphi 根据磁盘盘符获取简单的硬盘编号

Delphi取得cxgrid 合计数

Delphi中实现hextostr函数和strtohex函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi CardPanel1 简单的切换