名前
題名
▼ Mr.XRAYさん > > こういうコードを書く発想というのはどこからくるのか知らん ? > > もちろん，TSpeedButton のクリックイベントでなければ別ですが， > > てなわけで，サンプルに以下のコードというか，説明を追加しました． > > //============================================================================= > // TSpeedButtonのクリックイベント > //============================================================================= > procedure TForm1.SpeedButton1Click(Sender: TObject); > begin > if TSpeedButton(Sender).Down then begin > //DownプロパティがTrueになった時の処理 > //ボタンが下がった状態になった時の処理 > end else begin > //DownプロパティがFalseになった時の処理 > //ボタンが上がった状態になった時の処理 > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link