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 内存管理[4]

Delphi urlencode

Delphi获取系统进程和路径

Delphi 获取listview1鼠标所在位置的行名称

Delphi实现类似嵌入桌面的效果

Delphi 通过api 隐藏任务栏时间日期

Delphi tstylemanager读取vsf皮肤文件信息

Delphi 中文字符串函数问题rightstr

Delphi怎么样选择pagecontrol1的分页

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

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