|
|
|
Informační tabulky
|
29.11.2009
|
Úvod
Často se potřebujeme tabulkou uživatele na něco zeptat, nebo mu něco oznámit. Zde je několik variant MessageBoxu.
Ikony a tlačítka se dají kombinovat.
Prvky
Button1 (caption: Ukaž)
Kód a Snímek - Informace
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(handle, Pchar('Tady bude nějaká Informace'), Pchar('Nadpis'), MB_ICONINFORMATION);
end;
Kód a Snímek - Chyba
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(handle, Pchar('Tady bude nějaká Chyba!'), Pchar('Nadpis'), MB_ICONERROR);
end;
Kód a Snímek - Upozornění
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(handle, Pchar('Tady bude nějaké Upozornění!'), Pchar('Nadpis'), MB_ICONEXCLAMATION);
end;
Kód a Snímek - Dotaz
procedure TForm1.Button1Click(Sender: TObject);
var
odpoved:integer;
begin
odpoved := MessageBox(handle, Pchar('Přejete si ukončit program?'), Pchar('Nadpis'), MB_ICONQUESTION+MB_YESNO);
If odpoved = IDYES then begin
Application.terminate;
end else begin
beep;
end;
end;
Další možnosti
MB_ABORTRETRYIGNORE (Přerušit, Opakovat, Přeskočit)
MB_OK (Ok)
MB_OKCANCEL (Ok, Storno)
MB_RETRYCANCEL (Opakovat, Storno)
MB_YESNO (Ano, Ne)
MB_YESNOCANCEL (Ano, Ne, Storno)
Vrácené hodnoty
IDOK (stisknuto OK) num. 1
IDCANCEL (stisknuto Storno) num. 2
IDABORT (stisknuto Přerušit) num. 3
IDRETRY (stisknuto Opakovat) num. 4
IDIGNORE (stisknuto Přeskočit) num. 5
IDYES (stisknuto Ano) num. 6
IDNO (stisknuto Ne) num. 7
|
|
|
