form onclose -idyes

[ALUCARD]

s.a
arkadaşlar benim bi sorunum var şöyleki:
şimdi kıllanıcı benden lisans şifresinği aldığında programın kapnması ve kullanıcının programı yenşden başlatması gerekiyor.


Kullanıcı Programı kurum bana telefon acıyor benden şifreyi alıyor giriyor program şifreyi onaylıyor.. buraya kadar herşey normal

şimdi programın kapanması lazım

Kod: Tümünü seç

PROCEDURE TForm1.FormClose(Sender: TObject; VAR Action: TCloseAction);
VAR
  CIKIS: WORD;
BEGIN

  CIKIS := APPLICATION.MessageBox('Çıkmak İstediğinize Eminmisiniz..',
    'Çıkışı Onaylayın', MB_YESNO + 64);

  IF CIKIS = IDNO THEN
    Action := caNone
  ELSE
    IBTransaction1.Commit;
END;

bu da programın close olayı

ben buraya yonlendirdiğimde kullanıcının yukardaki mesajı gormemesını nasıl sağlarım

[husonet]

Unit'in birinde Gloabal bir değişken tanımla bu değişkene yaptırdığın işlemlere göre değerler ata ve forum kapanma esnasında if koşulu ile değişkenin değerine bak.


Kolay Gelsin...

[aslangeri]

S.A.
Register işlemini yaptıktan sonra formun onclose olayını nil yap

Kod: Tümünü seç

Form1.onclose:=nil;// nil olmazsa null da olabilir şuan tam hatırlamıyorm

Kolay Gelsin.

[ALUCARD]

kardeş teşekkur ederim

Kod: Tümünü seç

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('gule gule');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.OnClose:=nil;
close;
end;

şekklinde bir kod yazdım

artık mesaj gelmeden kapanıyor...

[freeman35]

Bikaç öneri
Öncelikle programın şifreden sonra açılıp kapanmak istediğine göre sen şifre işlemini sadece açılışta ve program içerisinde bir kez yapıyorsun, onun yerine her forma şifreyi kontrol ettirirsen, hem programın kapanmasına gerek kalmaz hemde kırmayı lütfeden kişi 5-10 yeri daha incelemek yada parmaklamak zorunda kalacaktır.
bir diğer konuda OnCloseQuery yi kullan bu iş için

Kod: Tümünü seç

     if Application.MessageBox('Kapatmak İstediğinize EMİN MİSİNİZ ?',
        PChar(Application.Title),
        MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2) = IdNO then begin
       CanClose := False
     end else begin
      if IBTransaction1.InTransaction then IBTransaction1.CommitRetaining;
     end;