名前
題名
▼ Mr.XRAYさん > > http://madia.world.coocan.jp/delphi/delphi_bbs/200705/200705_07050038.html > > こういうコードを書く発想というのはどこからくるのか知らん ? > もちろん，TSpeedButton のクリックイベントでなければ別ですが， > > procedure TForm1.SpeedButton1Click(Sender: TObject); > begin > if SpeedButton1.Down= false then > SpeedButton1.Down:=true > else > SpeedButton1.Down:=false; > end; > > 以下だと永久ループになるのですぐ気付くと思いますが (笑) > > procedure TForm1.CheckBox1Click(Sender: TObject); > begin > if CheckBox1.Checked then begin > CheckBox1.Checked := False; > end else begin > CheckBox1.Checked := True; > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link