掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
引数TObjectからNameを取得するには (ID：6908)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォームにEdit1、Edit2、Button1、Button2を配置して 以下のようにコードを書きました。 Edit1、Edit2、Button1、Button2のOnKeyPressイベントを OnKeyPressAllに割り当てると望み通りの動作になりますが Tagを使った方が無難ですね type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Button2: TButton; Edit2: TEdit; procedure OnKeyPressAll(Sender: TObject; var Key: Char); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private 宣言 } FList : TList; public { Public 宣言 } end; var Form1: TForm1; tbl : array[0..3] of string = ('入力１','入力２','ボタン１','ボタン２'); implementation {$R *.DFM} procedure TForm1.OnKeyPressAll(Sender: TObject; var Key: Char); begin Caption := tbl[FList.IndexOf(Sender)]; end; procedure TForm1.FormCreate(Sender: TObject); begin FList := TList.Create; FList.Add(Edit1); FList.Add(Edit2); FList.Add(Button1); FList.Add(Button2); end; procedure TForm1.FormDestroy(Sender: TObject); begin FList.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.