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;
Cevapla
#5
(07-02-2019, Saat: 16:16)wiseman Adlı Kullanıcıdan Alıntı: 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ı: Ü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. Bu GitHub linkten indirebilirsiniz.

qbjzonprm84mvicfvhgz.png
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Exe veya Dll'yi Unit haline dönüştürmek carsoft 4 662 12-05-2020, Saat: 00:39
Son Yorum: carsoft
  Memo bileşeni Duplicate veya Put hakkında yardım kofmaster 6 959 11-04-2020, Saat: 22:39
Son Yorum: kofmaster
  Chromium (CEF4) ile sayfa kaynağını veya javascript çalıştırıp dönen değeri nasıl? adeministrator 8 1.236 04-04-2020, Saat: 19:56
Son Yorum: Ahmet İPEKÇİ
  ÇÖZÜLDÜ formu dialog alarak kullanmak mümkünmü? sadikacar60 7 1.078 12-03-2020, Saat: 00:25
Son Yorum: uparlayan
  Twebbrowser kullanmadan indy veya türevi bir bileşene js ve ajax ı kullanmak mümkünmü Ahmet İPEKÇİ 13 2.536 25-12-2019, Saat: 10:53
Son Yorum: Halil Han Badem



Konuyu Okuyanlar: 1 Ziyaretçi