Sign in Join
Wiki copytemporary

Dialog Examples/ja: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Dialog Examples/ja

OldNewLine
1+# 便利なダイアログ
2+
3+ここでは、コンポーネントパレットにはない、便利なダイアログを紹介します:
4+
5+- procedure [[Dialog Examples/ja|ShowMessage]] (const Msg: string);
6+- function MessageBox (Text, Caption : PChar; Flags: Word): Integer;
7+- function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: LongInt): Word;
8+- function InputBox (const ACaption, APrompt, ADefault: string); string;
9+- function InputQuery (const ACaption, APrompt: string; var Value: string): Boolean;
10+- function PasswordBox(const ACaption, APrompt : String) : String;
11+
12+どのコンポーネントも、幾つかの情報とユーザのレスポンスを求める小さなポップアップを表示します: ボタンを押すか何かテキストを入力するか、もしくはその両方の種類があります。プログラマーはフォーマットやサイズ、ポップアップの場所をある程度制御することが出来ます。また、テキストの内容を変更することもできます。\
13+このように幾つかのとてもよく似た選択がある理由は、コンポーネントの呼び出し方や、procedure や function から返されたデータの受け取りに異なる手法できるようにするためです。
14+
15+## メッセージダイアログ
16+
17+メッセージダイアログは、メッセージを表示したり、キー入力やマウスクリックを待つといった際に使用します。
18+
19+### ShowMessage
20+
21+`Procedure ShowMessage (const Msg: string);`\
22+\
23+`{ Defined in Dialogs.pp }`
24+
25+もっともシンプルなメッセージダイアログです: シンプルな文字をパラメータとして指定し、所定の形状のダイアログを表示します。ランタイムやプログラムから呼び出され、マウスクリックもしくは Enter キーが押されるまで待機します。\
26+これは呼び出しの例です。ダイアログを表示し、フォーカスを受け取ります。なお、OK ボタンをクリックされるまでフォーカスを放棄しません。
27+
28+例:
29+
30+`Program LazMessage;`\
31+`Uses Dialogs;`\
32+`begin`\
33+`  ShowMessage ('これは Lazarus からのメッセージです')`\
34+`end.`
35+
36+### MessageBox
37+
38+`Function Application.MessageBox (Text, Caption: PChar; Flags: longint) : Integer;`\
39+\
40+`{ Forms.pp 内の TApplication で定義されています; よって Application.Messagebox () と記述するか、 'with Application do ...end'  の中でコールする必要があります}`
41+
42+パラメータは次の通りです。
43+
44+- Text: ボックス内に表示される指示や紹介用の文字列;
45+- Caption: メッセージボックスの上にあるラベル文字列;
46+- Flags: longint 型 - メッセージボックスの内容と振る舞いを定義するため様々な定数を、必要に応じて加算して指定します。例えば MB_ABORTRETRYIGNORE + MR_ICONQUESTION とすれば、メッセージボックス内には ABORT RETRY IGNORE の３つのボタンと問い合わせ(?)アイコンの付いたメッセージボックスを表示させることになります。
47+
48+この関数は押されたボタンに応じて整数値を返します。この数値は\[IDOK..IDHELP\] といった定数値を参照して値が決定されます。
49+
50+これは procedure コールのように呼び出すこともできます(ただ'MessageBox()'という記述よりも'Variable := MessageBox()' というファンクションコールで使用します - 下の例を見て下さい)
51+
52+例
53+
54+`Uses Forms, Dialogs, LCLType;`\
55+\
56+`Procedure DisplayMessageBox;`\
57+`  var reply, boxstyle: integer;`\
58+`  begin`\
59+`    with application do begin`\
60+`      boxstyle :=  MB_ICONQUESTION + MB_YESNO;`\
61+`      reply :=  MessageBox ('Press either button', 'MessageBoxDemo', boxstyle);`\
62+`      if reply = IDYES then MessageBox ('Yes       ', 'Reply',MB_ICONINFORMATION)`\
63+`      else MessageBox ('No         ', 'Reply', MB_ICONHAND)`\
64+`  end;`
65+
66+この例での 'Yes' と 'No' の文字列ですが、後ろに空白文字を追加して文字長を長くしています。というのも、キャプションをちゃんと表示するのに十分な幅にならない為です。
67+
68+<center>
69+
70+<http://lazarus-ccr.sourceforge.net/kbdata/MessageBoxDemo.png> <http://lazarus-ccr.sourceforge.net/kbdata/ReplyYes.png>
71+
72+</center>
73+
74+### MessageDLG
75+
76+`function MessageDlg(const aMsg: string; DlgType: TMsgDlgType; `\
77+`                   Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;`\
78+`function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType; `\
79+`                   Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;`
80+
81+この関数には二つのバージョンがあります。最初のキャプション(Caption)パラメータが任意です。もし省略した場合、キャプションは表示されません。
82+
83+MessageDLGは、メッセージダイアログの中で最も完全で詳細なもので、プログラマーは様々なこれを使って様々なダイアログボックスを作成できます。 ボックスやアイコンの種類を定義するパラメータは整数の定数値よりも、むしろ定義の方を使用します。ボタンで言えば \[mbRetry, mbIgnore, mbAbort,mbCancel\] といったコの字括弧を使って定義されています。 HelpCtx パラメータは現在使われておらず、0 をセットしておく必要があります。 関数から返された値は、押されたボタンの識別番号であり、Integer 型の扱いになります。(下に述べる\[mrNone..mrAll\]を参照して下さい)
84+
85+例
86+
87+`Uses forms, dialogs, lcltype, controls;`\
88+\
89+`procedure TryMessageDlg;`\
90+`begin`\
91+`  if MessageDlg ('Question', 'Do you wish to Execute?', mtConfirmation, `\
92+`                 [mbYes, mbNo, mbIgnore],0) = mrYes`\
93+`  then { Execute rest of Program };`\
94+` end;`
95+
96+<center>
97+
98+<http://lazarus-ccr.sourceforge.net/kbdata/Question.png>
99+
100+</center>
101+
102+## 文字入力ダイアログ
103+
104+### InputBox
105+
106+テキスト入力ダイアログ: ダイアログを表示し、ユーザにテキスト入力を促します。
107+
108+`Function InputBox(const ACaption, APrompt, ADefault : String) : String;`
109+
110+タイトルとプロンプトのある四角いフォームを表示して、ユーザーにテキストボックスに入力を促します。オプションとしてデフォルトの文字列を表示させることができます。ユーザーが入力したり、あるいはデフォルトのままの文字列が関数の戻り値として返されます。
111+
112+例
113+
114+`Uses forms, lcltype, dialogs, controls;`\
115+\
116+`procedure TryInputBox;`\
117+`var userstring: string;`\
118+`begin`\
119+`  userstring := InputBox ('Get some text input', `\
120+`                         'Please type in some   information', 'Some sample text');`\
121+`  ShowMessage (userstring)`\
122+`end;`
123+
124+### InputQuery
125+
126+`Function InputQuery(const ACaption, APrompt : String;`\
127+`                    MaskInput : Boolean; var Value : String) : Boolean;`\
128+`Function InputQuery(const ACaption, APrompt : String;`\
129+`                    var Value : String) : Boolean;`
130+
131+この関数には、２つのバージョンがあり、どちらもプロンプトを表示して、ユーザーにテキストデータの入力をもとめます。最初のものは、MascInputという論理値のパラメータがあり、ユーザーの入力が、（パスワード入力中のように）入力ボックス内でアスタリスクでマスクされるかどうかを決めることができます。２番目のものは、このプロパティはありません。ユーザーが入力したテキストは、'Value'という変数パラメータで返されます。この関数の戻り値は、'OK'が押されたときはTRUEを、その他の方法（たとえば、タイトルバーの'閉じる'アイコンをクリックされたときなど）で入力フォームが閉じられたときは、FALSEを返します。MaskInputパラメータを省略することは、MaskInputパラメータにFALSEを指定することと同じです。
132+
133+例：
134+
135+`Uses forms, lcltype, dialogs, controls;`\
136+\
137+`procedure TryInputQuery;`\
138+`var QueryResult: boolean;`\
139+`  userstring: string;`\
140+`begin`\
141+`  if InputQuery ('Question', 'Type in some data', TRUE, userstring)`\
142+`  then ShowMessage (userstring)`\
143+`  else `\
144+`  begin`\
145+`    InputQuery ('Don''t be silly', 'Please try again', userstring);`\
146+`    ShowMessage (userstring)`\
147+`  end`\
148+`end;`
149+
150+<center>
151+
152+<http://lazarus-ccr.sourceforge.net/kbdata/MessageDlgQuestion.png>
153+
154+</center>
155+
156+<center>
157+
158+<http://lazarus-ccr.sourceforge.net/kbdata/DontBeSillly.png>
159+
160+</center>
161+
162+### PasswordBox
163+
164+`Function PasswordBox(const ACaption, APrompt : String) : String;`
165+
166+MaskInput を TRUE にした状態の InputQuery 関数とよく似た動作です。違いは、関数(InputBox のように)の返し値にパスワードがセットされる点です。
167+
168+## メッセージダイアログで使用される定数値と型
169+
170+幾つかのメッセージダイアログで使用される定数値と型は LCL ライブラリの中で予め定義されています:
171+
172+const { Defined in LCLType.pp }
173+
174+メッセージボックスの外観にあるアイコンとボタンの型を定義する定数値
175+
176+`MB_OK = $00000000;`\
177+`MB_OKCANCEL = $00000001;`\
178+`MB_ABORTRETRYIGNORE = $00000002;`\
179+`MB_YESNOCANCEL = $00000003;`\
180+`MB_YESNO = $00000004;`\
181+`MB_RETRYCANCEL = $00000005;`\
182+\
183+\
184+`MB_ICONHAND = $00000010;`\
185+`MB_ICONQUESTION = $00000020;`\
186+`MB_ICONEXCLAMATION = $00000030;`\
187+`MB_ICONASTERICK = $00000040;`\
188+`MB_ICONWARNING = MB_ICONEXCLAMATION;`\
189+`MB_ICONERROR = MB_ICONHAND;`\
190+`MB_ICONINFORMATION = MB_ICONASTERICK;`
191+
192+ボタンが押された時に、MessageBox から送られる一致するボタンの種類の定数値
193+
194+`IDOK = 1;  ID_OK = IDOK;`\
195+`IDCANCEL = 2;  ID_CANCEL = IDCANCEL;`\
196+`IDABORT = 3;   ID_ABORT = IDABORT;`\
197+`IDRETRY = 4;   ID_RETRY = IDRETRY;`\
198+`IDIGNORE = 5;  ID_IGNORE = IDIGNORE;`\
199+`IDYES = 6; ID_YES = IDYES;`\
200+`IDNO = 7;  ID_NO = IDNO;`\
201+`IDCLOSE = 8;   ID_CLOSE = IDCLOSE;`\
202+`IDHELP = 9;    ID_HELP = IDHELP;`
203+
204+１番目のボタン、２番目のボタン、３番目のボタン...のどれがデフォルトかを定義します。
205+
206+`MB_DEFBUTTON1 = $00000000;`\
207+`MB_DEFBUTTON2 = $00000100;`\
208+`MB_DEFBUTTON3 = $00000200;`\
209+`MB_DEFBUTTON4 = $00000300;`
210+
211+MessageBoxのFlagsパラメータは、ボタン定数を加えることで指定します。 \[MB_OK..MB_RETRYCANCEL\], オプションとしてアイコン定数があります。 \[MB_ICONHAND..MB_ICONINFORMATION\] さらにオプションとして、デフォルトボタン定数があります。 \[MB_DEFBUTTON1..MB_DEFBUTTON3\]
212+
213+MessageDlgを使う型は、次のようなパラメータを必要とします。 TMsgDlgTypeのAType, TMsgDlgButtonsのAButtons
214+
215+`{ Defined in Dialogs.pp }`\
216+`type`\
217+` TMsgDlgType    = (mtWarning, mtError, mtInformation,  mtConfirmation,`\
218+`                   mtCustom);`\
219+` TMsgDlgBtn     = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,`\
220+`                  mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);`\
221+` TMsgDlgButtons = set of TMsgDlgBtn;`\
222+` `\
223+\
224+`const`\
225+` mbYesNoCancel = [mbYes, mbNo, mbCancel];`\
226+` mbOKCancel = [mbOK, mbCancel];`\
227+` mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];`\
228+` `\
229+\
230+` MsgDlgBtnToBitBtnKind: array[TMsgDlgBtn] of TBitBtnKind = (`\
231+`  bkYes, bkNo, bkOK, bkCancel, bkAbort, bkRetry, bkIgnore,`\
232+`   bkAll, bkNoToAll, bkYesToAll, bkHelp, bkClose`\
233+`  );`\
234+\
235+\
236+` BitBtnKindToMsgDlgBtn: array[TBitBtnKind] of TMsgDlgBtn = (`\
237+`   mbOk, mbOK, mbCancel, mbHelp, mbYes, mbNo,`\
238+`   mbClose, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToALl, mbYesToAll`\
239+`   );`\
240+\
241+\
242+`{ Defined in Controls.pp }`\
243+`const`\
244+` mrNone = 0;`\
245+` mrOK = mrNone + 1;`\
246+` mrCancel = mrNone + 2;`\
247+` mrAbort = mrNone + 3;`\
248+` mrRetry = mrNone + 4;`\
249+` mrIgnore = mrNone + 5;`\
250+` mrYes = mrNone + 6;`\
251+` mrNo = mrNone + 7;`\
252+` mrAll = mrNone + 8;`\
253+` mrNoToAll = mrNone + 9;`\
254+` mrYesToAll = mrNone + 10;`\
255+` mrLast = mrYesToAll;`
256+
257+------------------------------------------------------------------------
258+
259+このページはepikwiki [バージョン](http://lazarus-ccr.sourceforge.net/index.php?wiki=DialogExamples)からインポートされました。
260+
261+---
262+*From the Free Pascal wiki, page "Dialog Examples/ja", as it stood on 2006-10-28 after a change by Saeka-jp, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history