U komunikaciji sa korisnicima, u vaลกim aplikacijama, ฤesto se koriste razni dijalog prozori. Oni su, uglavnom, manje zastupljeni u kontroli daljeg toka programa, i najฤeลกฤe sluลพe za obaveลกtavanja. U ovom prilogu ฤemo jedan standardni dijalog prozor proลกiriti za jedan CheckBox – polje za potvrdu.
Kao primer, naveลกฤemo situaciju kada naลก dijalog prozor sadrลพi jedno polje za potvrdu, kojim recimo korisnik moลพe da potvrdi da se ne bi viลกe prikazivala data informacija (standardno CheckBox polje – „Don“t show this message again“). Aplikacija podatak o stanju CheckBox polja moลพe da smesti u globalnu varijablu, i sledeฤi put dijalog prozor se neฤe prikazati ako je prethodno potvrฤeno ovo polje. Kreirajte novi projekat, i na praznu formu postavite samo jedno komandno dugme koje ฤe pozivati dijalog (kao na slici). Sledeฤi programski kod smestite u dogaฤaj „ButtonClick“:
procedure TForm1.Button1Click(Sender: TObject);
var
AMsgDialog: TForm;
ACheckBox: TCheckBox;
begin
AMsgDialog := CreateMessageDialog
(‘Ovo je tekst poruka.’, mtWarning,
[mbYes, mbNo]);
ACheckBox := TCheckBox.Create(AMsgDialog);
with AMsgDialog do
try
Caption := ‘Naslov dijaloga’ ;
Height := 169;with ACheckBox do
begin
Parent := AMsgDialog;
Caption := ‘Nemoj vise prikazivati ovaj dijalog’;
Top := 121;
Left := 8;
end;if (ShowModal = ID_YES) then
begin
if ACheckBox.Checked then
begin
//…
end;
//… Ovde cete smestiti odg. funkcije
end;
finally
ACheckBox.Free;
Free;
end;
end;
ล ta smo uradili:
- Prvo smo kreirali dijalog koriลกฤenjem instrukcije „CreateMessageDialog“.
- Funkcija vraฤa Form objekta sa dijalogom.
- U Form objekat dodajemo CheckBox.
- Prikazujemo dati dijalog uz pomoฤ ShowModal.
- Proverava se rezultat i dalje se procesira.
- Na kraju, poniลกtavaju se objekti CheckBox i Dialog.
Pratite Krstaricu na www.krstarica.com