|
|
|
DERS ANLATIMI FRAME |
|
INPUTQUREY
| 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. |
|
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; |
|
|
|
|
|
|