掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
InputQueryについて (ID:26599)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
一部抜粋ソース ① ※↓関数名をユニークな物に変更。変更しないと関数が重複しエラーになる可能性あり function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; var Form: TForm; Prompt: TLabel; Edit: TEdit; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; begin Result := False; ・ ・ ・ with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgCancel ※← ここの部分言われていると思います。 ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15, ButtonWidth, ButtonHeight); Form.ClientHeight := Top + Height + 13; end; ・ ・ ・ end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.