Application.onCreateForm ?

[bydelphi]

(19-07-2024, Saat: 11:22)hi_selamlar Adlı Kullanıcıdan Alıntı:

(18-07-2024, Saat: 23:34)bydelphi Adlı Kullanıcıdan Alıntı: Tabi ki,

Büyük bir projede create edilen birçok formda 
ki bunların bir çoğu mdichild form , modal form ,  normal formlar, 
ve class function ile create edip işlediğim return aldığım formlar var.
her birinin create koduna gidip bişeyler yazmak istemiyorum, zaten bazıları mdichild iken modal da değiştirip modal açıyorum duruma göre. 
herbirine gidip tekrar kod yazamam , yada tek metotola herbirini create edemem gönderdiğiniz linkdeki gibi.
işte Application sınıfında Tüm bu CreateForm olaylarını yakalayabileceğim alttakilerine benzer bir event varmı tetikleyebilirmiyim yazabilirmiyim bunu araştırıyorum.
Umarım anlatabilmişimdir.
@Tuğrul HELVACI hocam senin bu konuda bir yorumun olabilir mi?

Merhabalar,

Daha önce bu şekilde bir konu geçömişti forumda ama bulamadım.

Umarım aşağıda ki kod yardımcı olur.

 ApplicationEvents1: TApplicationEvents;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
 if Msg.message = WM_CREATE then
 begin
   if Msg.hwnd <> 0 then
   begin
     ShowMessage('Form oluştu: ' + IntToStr(Msg.hwnd));
   end;
 end;
end;

Kolay gelsin.

Harika Eline Sağlık