Inputboxu kotrol etmek

[atmx]

arkadaşlar hocamı bende istediği biraz sanki saçmalık ama harika bir şey

bir butona tıkladığımda inputbox açılsın ve otomatik kapansın istiyor..

Projemdeki Kullanımı :

Kod: Tümünü seç

Var
 Adres:String;

Begin
 Adres:=Inputbox('Url Aç','Otomatik Adres','www.yahoo.com');
 Webbrowser1.navigate(Adres);
End;

Şimdi burada inputbox açılıyor. fakat tıklamadan yada entera basmadan nasıl otomatik kapatılacak..

???

[ikutluay]

merhaba inputbox otomatik kapanmaz.. dahada ilginç olan bu edit benim giişim bittimi bitmedimi nerden bilecekte otomatik kapanacak.

ancak süre sonunda kapanan kendi fonksiyonunuzu yazabilirsiniz.

[atmx]

peki nasıl kendi fonksiyonumu yazabilirim ki

[ikutluay]

bu kod kendi messagedlg için. input box içinse

Kod: Tümünü seç

 	
var m: TForm;
...
m := CreateMessageDialog('bekleyin...', mtCustom, []);
m.BorderIcons := []; //kapa düğmesi gitti
m.Show;
m.Update; //gerekli olabilir
 
//kendi kodun
 
m.Release;

input box showla gelmediğinden (showmodaldır) sıkıntı yaşıyorsun..

bence

• 1. bir form oluştur
  2. bşir buton bir edit ve birde timer koy
  3. timer intervalini 30000 yap ve ontimer ada close kodunu koy. form 25 sn sonra kendisi kapanır.