掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
inputBoxについて (ID:6277)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 > inputBoxを使って、[ok][cancel]以外のオリジナルのボタンを追加したいのですが ちょっとやってみました。 { Private 宣言 } public procedure WMApp(var MsgTMessage);message WM_APP; procedure MyButtonClick(Sender: TObject); end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Randomize; PostMessage(Handle,WM_APP,0,0); InputBox('Test','テストです','Default'); end; procedure TForm1.WMApp(var MsgTMessage); var i:integer; Frm:TForm; begin Frm := nil; for i := 0 to Screen.FormCount-1 do if Screen.Forms[i].ClassName = 'TForm' then Frm := Screen.Forms[i]; if not Assigned(Frm) then exit; with TButton.Create(Frm) do begin Parent := Frm; Caption := 'Click Me!'; Top := 3; Left := 100; OnClick := MyButtonClick; end; end; procedure TForm1.MyButtonClick(Sender: TObject); begin ((Sender as TButton).Parent as TForm).Color := Random($1000000); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.