folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Delphide Tuş İptali Nasıl Olur Ve Başlat Çubuğunun Üstünde Tutmak



Delphide Tuş İptali Nasıl Olur Ve Başlat Çubuğunun Üstünde Tutmak

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    McErroR
    McErroR's avatar
    Kayıt Tarihi: 26/Şubat/2005
    Erkek
    Kardeş öncelikle programı kapatmak için öle close mlose yazılmaz.Close komutu sadece formu ekrandan siler bellekten silmez.Programı komple kapattırmak istiyosan halt; komutunu kullanıcaksın.İyi kavramak isteyenler close komutu ile kapattıktan sora Ctrl+Alt+Delete yapıp çalışan program listesine baksın.Programın Project1.exe adında hala çalıştıgını görürsünüz.Ayrıca Programını tam ekran yapmak istiyosanda aşağıdaki verdiğim kodu kullan.Önce Formuna 1 adet buton koy ve kod bölümüne halt; komutunu ekleki programı kapatabilesin.Çünki aşağıdaki verdiğim kod ile Programın tüm Kapatma,Simge durumunda küçültme vs.. düğmeleri iptal edilir.Yani program tamamıyle tam ekran olur.Oyunlardaki gibi ;Pp.
    Bu Kodu Formun OnCreate yordamına yazacaksın yani aşağıdaki gibi...


    procedure TForm1.FormCreate(Sender: TObject);
    begin
    setwindowpos(form1.Handle,hwnd_notopmost,0,0,getsystemmetrics(sm_cxscreen),getsystemmetrics(sm_cyscreen),0);
    setwindowpos(form1.Handle,hwnd_topmost,0,0,getsystemmetrics(sm_cxscreen),getsystemmetrics(sm_cyscreen),swp_nomove);
    setforegroundwindow(form1.Handle);

    SetWindowLongA(Handle,GWL_style,WS_EX_TOOLWINDOW);
    end;


    Bu kadar.



    www.Tahribat.com
Toplam Hit: 4676 Toplam Mesaj: 12