关于单复选框的问题

發文回覆瀏覽次數：740

推到 Plurk!

推到 Facebook!

答題得分者是：pceyes

zhouying82
高階會員

發表：150
回覆：272
積分：189
註冊：2004-03-16

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-06-03 15:35:06

IP:218.80.xxx.xxx 訂閱

比如说有个复选框，我单击一下（使前面有勾），下面出现一段字，在单击一下，字就没有了。请问我要怎么试验啊？
我用
IF CHECKBOX1.CHECKED:=NOT CHECKBOX1.CHECKED THEN
.......
好像没用吗？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

編輯記錄

taishyang 重新編輯於 2008-06-18 16:49:27，註解無‧

pceyes
尊榮會員

發表：70
回覆：657
積分：1140
註冊：2003-03-13

發送簡訊給我

#2 引用回覆回覆

發表時間：2008-06-15 22:40:30

IP:220.141.xxx.xxx 訂閱

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then begin
     label1.Caption := 'ok';
  end
  else begin
     label1.Caption := 'no';
  end;
end;

------
努力會更接近成功

系統時間：2024-04-26 0:48:06

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！