Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Formu üsteki çarpıdan veya komut ile kapatma
#1
Herkese merhabalar ,

Öğrenmek istediğim birşey var çok basit olabilir emin değilim ama ben beceremedim yani dolaylı olarak yapıyorum ama doğrusunu da öğrenmek istiyorum eğer öyle birşey mümkünse , 
Yapmak istediğim şu formun üzerindeki  "x" işaretine basıldığında veya form kodla kapatıldığında bu iki durumu birbirinden ayırmak istiyorum , 

bunu şu anda bir değişkeni true / false yaparak kontrol ederek yapmaya çalışıyorum ama bazen o da sorun olabiliyor , 



özetlersek yukarıdaki çarpı butonundan kapattığımızda farklı  aşağıdaki butondan kapattığımızda farklı bir mesaj versin istiyorum, Aslında bu ikisini ayırmak istiyorum.

Screenshot_1.jpg

umarım anlatabilmişimdir.

herkese çok teşekkür ediyorum.
Cevapla
#2
OnCloseQuery evet'ını inceleyin hocam
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#3
cevabınız için teşekkür ederim , aslında onlarla ilgili baya bir deneme yaptım ama pek bir işe yaramadı Sad İşe yaramadı demiyelim belkide yapılıyor ama ben beceremedim.
Cevapla
#4
Selamlar,

Anlatabilmek adına forma bir tane edit, bir tane buton koyun.
Kodları şu şekilde yapılandırabilirsin.

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text := 'buton';
  close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if edit1.Text = 'buton' then
  begin
       showmessage('butondan kapatıldı');
  end
  else
    showmessage('program çarpıdan kapatıldı');
end;
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#5
(07-02-2019, Saat: 16:16)wiseman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Selamlar,

Anlatabilmek adına forma bir tane edit, bir tane buton koyun.
Kodları şu şekilde yapılandırabilirsin.

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text :='buton';
 close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if edit1.Text = 'buton' then
 begin
   showmessage('butondan kapatıldı');
 end
 else
 showmessage('program çarpıdan kapatıldı');
end;

teşekkür ederim ,  yukarıda da belirtiğim gibi bende değişkeni "true" / "false" yaparak bunun kontrolünü sağlıyorum ama istediğim formun üstündeki çarpıya basılıp basılmadığını anlamak. Yinede ilginiz için çok teşekkür ediyorum.
Cevapla
#6
FormClose'daki Sender parametresini kullanabilirsiniz belki.
There's no place like 127.0.0.1
WWW
Cevapla
#7
İlk aklıma gelen sistem mesajlarına odaklanmak oldu..

  private
   procedure WMSysCommand(var MSG: TWMSysCommand); message WM_SYSCOMMAND;
   { Private declarations }

procedure TForm1.WMSysCommand(var MSG: TWMSysCommand);
begin
 if MSG.CmdType = SC_CLOSE
   then ShowMessage(' Köşedeki çarpıdan kapatıldı... ');

 inherited;
end;

Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#8
Üstteki cevaplar çok güzel.

Hepsini alternatif olarak bilip gerektiği yerde kullanmak iyidir.

Mrmarman üstadımızın cevabına ek olarak mesaj sürecini görmek de faydalı olacaktır.


Ek Dosyalar Resimler
   
Cevapla
#9
(07-02-2019, Saat: 19:43)ssahinoglu Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Üstteki cevaplar çok güzel.

Hepsini alternatif olarak bilip gerektiği yerde kullanmak iyidir.

Mrmarman üstadımızın cevabına ek olarak mesaj sürecini görmek de faydalı olacaktır.

Sırası ile Win. mesajlarını siz yakalayıp ekran görüntüsü mü aldınız, eğer öyle ise profileri öğrenmek isterim
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Cevapla
#10
Merhaba.

- @ssahinoglu uygun olur diye bekledim, soru açık kalmasın; Windows Mesajlarını takip etmek için şahsen de çok beğendiğim MS SpyPlusPlus programdır. Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız..

qbjzonprm84mvicfvhgz.png
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Ethernet kablosu takılı veya değil. ? Bay_Y 18 1.263 21-03-2019, Saat: 15:34
Son Yorum: Bay_Y
  Servis uygulması üzerinden komut satırı çalıştırmak ahmet_sinav 9 746 06-03-2019, Saat: 22:22
Son Yorum: ahmet_sinav
  SQL Tablo Var veya Yok Kontrolu !! OZCANK 8 950 13-02-2019, Saat: 08:30
Son Yorum: Tuğrul HELVACI
  Prosedür veya Fonksiyonda Değişken Zorunluluğu Halil Han Badem 3 477 03-02-2019, Saat: 12:02
Son Yorum: Halil Han Badem
  Programı kapatma Yeliz 6 646 14-01-2019, Saat: 16:01
Son Yorum: klavye



Konuyu Okuyanlar: 1 Ziyaretçi