opendialog 2ci seferde programı kapatıyor?

[Shou]

Form başlatırken filter'i ekledim,

Kod: Tümünü seç

OpenDialog1.Filter := 'Ultima Online (muls)|*.mul|G-Defender (launcher)|*.exe|G-Defender (dll)|*.dll';

Ve button kısmına şunu ekledim,

Kod: Tümünü seç

if (OpenDialog1.Execute) then begin
Edit1.Text:=ExtractFileName(OpenDialog1.FileName);
end;

Fakat ilk açtığımda gözat kısmı geliyor seçiyorum edit1'e yazıyor bidaha gözat dersem form kapanıyor neden olabilir?

[warder]

Bu şekilde kullanımı normal sanıyorum.
Edit1 in olaylarında işlediğiniz kodlar varsa.
Opendialog programı kapatmaz. Sistem programın davranışından rahatsız olup görevini sonlandırıyordur.
Geçersiz işlem yürütmesi gibi... Özellikle ram hatalarına açık işaretçi değişkenler vs.
OpenDialog ile tetiklenen kodlarınızı derinlemesine inceleyin bence...