Tanimlama :degisken :=inputquery(baslik,açiklama,deger) Bu fonksiyon sayesinde içerisinde bilgi girisi için text kutusu bulunan ve OK veya CANCEL butonlarina tiklanip tiklanmadi kontrol eder.OK veya CANCEL'e basildiginda degisken FALSE ve TRUE degerlerini alir.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
dug:Boolean;
firma:string;
begin
dug:=InputQuery('HOLDING :','Firma adini giriniz :',firma);
if dug=true then
showmessage(firma+#13+'firmadi'); //bir alt satira indir
if dug=false then
showmessage('firma iptal edildi');
end;
07-12-07, 18:34
Çevrimiçi 
