PROGRAMI KAPATINCA GRV YONETICISINDE ACIK KALIYOR

[SPAWN33]

Selamlar,

Yazdığım program kapatılınca gorev yoneticisinde açık kalıyor, ben nedenini biliyorum fakat çözüm bulamadım.

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var
k : string;
s : string;
begin
k := edit1.Text;
s := edit2.text;
if not (k = '') then
if k = 'KMEL' then
if s = '123456' then
begin
Application.MessageBox('GIRIS TEYIT EDILDI, PROGRAM CALISMAYA UYGUN','GIRIS',MB_ICONINFORMATION );
form1.Show;
form2.Hide;
end
else
Application.MessageBox('SIFRE HATALI','HATA',MB_ICONEXCLAMATION)
else
Application.MessageBox('KULLANICI ADI HATALI','HATA',MB_ICONEXCLAMATION)
else
Application.MessageBox('BOS BIRAKILAMAZ','HATA',MB_ICONEXCLAMATION)
end;

kullandığım kod bu, sanırım burda form2 den form1 e geçerken farklı yöntem kullanmam gerekiyor, çünkü form2 yi hide yaptıktan sonra programı form1 den kapatıncada form2 açık ama visible=false oldugu için görünmüyor. Yani programı kapatsamda gorev yonetıcısınde açık kalıyor.

Not:

Form2.Close; yapınca program tamamen kapanıyor

Yardımlarınızı bekliyorum.

[mussimsek]

viewtopic.php?f=2&t=6