No.2ベストアンサー
- 回答日時:
Senderの型をキャストしましたか?
例えば、
if Sender is TButton then begin
ShowMessage(ColorToString((Sender as TButton).Font.Color));
end;
というクリックイベントを、ボタンと、ビットボタンとスピードボタンのonClick に設定してやると、ボタンとビットボタンの時のみ表示されます。
これを応用して、クリックするのがサブクラスであれば、そのサブクラスにキャストしてやれば読めるはずですよ。
type TMyButton=object(TButton)
public
TestParameter:string;
end;
だとし、そのボタンを配置し、押された場合、onclickイベントで、
ローカル変数
var Data:string;
として
if sender is TMyButton then begin
Data:=(sender as TMyButton).TestParameter;
~Dataに対する処理
end;
で、読めるはずです。
参考URL:http://fdelphi.nifty.com/
No.1
- 回答日時:
詳しく説明出来るほどの知識はないですが、、、
自分で作成した手続きなら渡せるのでは無いでしょうか?
procedure TForm1.Button1Click(Sender: TObject);
var cnt : integer;
begin
cnt := 1;
ShowMessage('cnt は' + IntToStr(Cnt));
func_A(Sender,cnt);
ShowMessage('cnt は' + IntToStr(Cnt));
end;
procedure TForm1.func_A(Sender: TObject; var i:integer );
begin
ShowMessage(TButton(Sender).Caption + 'から' + IntToStr(i) +
'が渡されました' + #13#10 + '1を足します');
Inc(i);
end;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) pythonのグローバル変数 2 2022/11/25 18:02
- JavaScript カラーミーショップのsectionループ内で、[引数][戻り値]ありの関数的な処理を行いたいです。 1 2022/05/07 19:39
- C言語・C++・C# C言語初心者 ポインタについて、お助けください、、 2 2023/03/15 23:50
- C言語・C++・C# C言語のwhileを含む関数について 2 2022/12/16 12:28
- C言語・C++・C# C# DatagridviewにExcelシートを反映するとエラーが出る 2 2023/05/06 17:12
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- FTTH・光回線 グローバルIPアドレスの変更について 1 2022/04/23 05:32
- HTML・CSS HTMLタグのあるCSVファイルを利用する方法 4 2023/03/19 14:41
- 英語 数字の単位について教えてください 6 2022/11/10 08:25
- メディア・マスコミ ドコモ 最大529万件の情報流出か なんか毎年のようにある流出。誰が悪いの? 9 2023/03/31 17:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
Excel VBA Application.caller...
-
Access VBA でデータペーストを...
-
ユーザーフォームに別シートか...
-
コマンドボタンやイメージにマ...
-
フォームの再読み込み
-
VBAで多数のプログラムを一つの...
-
セルをマクロのボタンにしたい。
-
Vba 電卓 一文字消すボタン
-
C#で動的に作ったtextboxを消す。
-
VBAでオプションボタンによって...
-
VBA CommandButtonの文字ずれ
-
TextBoxでEnterキーを押すと、...
-
プロシージャからイベントをコ...
-
MFC - ボタンの処理について
-
アクセスカウンタでリロード時...
-
閉じると「+」になり開くと「-...
-
ボタン(コントロール)を丸くしたい
-
ユーザーフォーム中の入力順番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
Excel VBA Application.caller...
-
VBAのボタンの位置が変わって困...
-
Access VBA でデータペーストを...
-
プロシージャからイベントをコ...
-
他のアプリケーションとの連携
-
閉じると「+」になり開くと「-...
-
C#で動的に作ったtextboxを消す。
-
ボタンをマウスで押し続けたと...
-
VBA でのボタンの移動について
-
CommandButtonのCaptionを変化...
-
ボタン
-
TextBoxでEnterキーを押すと、...
-
VB.net でトグルボタンを実現し...
おすすめ情報