UC知道各位大虾 ，关于DELPHI的问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 01:00:46
是这样的，有如下代码，请帮忙解释一下，最好详解一下，谢谢。
procedure TForm1.chkCheckBox1Click(Sender: TObject);
begin
tlbToolBar1.Flat := chkCheckBox1.Checked;
end;
procedure TForm1.tbtnToolButton4Click(Sender: TObject);
begin
if tbtnToolButton1.Enabled then
ShowMessage('本按钮处在选中状态，按钮一不可使用');
tbtnToolButton1.Enabled := not tbtnToolButton4.Down;
end;
procedure TForm1.chkCheckBox1Click(Sender: TObject);
begin
tlbToolBar1.Flat := chkCheckBox1.Checked;
end;
procedure TForm1.tbtnToolButton4Click(Sender: TObject);
begin
if tbtnToolButton1.Enabled then
ShowMessage('本按钮处在选中状态，按钮一不可使用');
tbtnToolButton1.Enabled := not tbtnToolButton4.Down;
end;
procedure TForm1.chkCheckBox1Click(Sender: TObject);
begin
tlbToolBar1.Flat := chkCheckBox1.Checked;//工具栏的【平坦】样式在chkCheckBox1被选定时生效
end;
procedure TForm1.tbtnToolButton4Click(Sender: TObject);
begin
if tbtnToolButton1.Enabled then //如果工具栏的此按钮处于使能状态则显示提示信息：本按钮处在选中状态，按钮一不可使用
ShowMessage(‘本按钮处在选中状态，按钮一不可使用’);
tbtnToolButton1.Enabled := not tbtnToolButton4.Down;
//工具栏此按钮的使能状态于工具栏的button4按钮当前的点中状态相反
end;