Statusbar da hintler çıkmıyor. (Çözüldü)

[cinarbil]

İyi günler
Delphi 10.2 Tokyo kullanıyorum.
yeni bir proje açıyorum forma statusbar ekliyorum
statusbar Autohint  true
statusbar da 2 adet panel var
form üzerindeki componentlerin  hinterine açıklamalarını yazıyorum
projeyi çalıştırıyorum status alanında birinci panelde component üzerine gelince
ilgili hint alanındaki bilgi yazıyor.
bunu test için yaptım sorun yok

Benin derdim 
Birçok formda dan oluşan proje var formların bir çoğunda statusbar var 
statusbar da  2 adet panel var
formun, formdaki tüm componentlerin ayarlarını birebir yeni projedeki ile karşılaştırdım 
kesinlikle aynı ama statusbar hintler görünmüyor. Componentin showhint true olursa mouse üzerine
gelince component üzerinde hint görünüyor.

test amaçlı projeye yeni bir form ekledim  yeni eklenen formda da
1 statusbar 1 edit var  
 statusbar da hint yazmıyor.

Sorun benim proje ayarlarında olduğu kesin
 
Delphide projeye özel ayarlar
*.dproj dosyasında tutuluyor bunu siliyorum projeyi ilk kaydettiğimde  project / options  daki ayarlara göre tekrar oluşturuyor

daha önce benzer sorunlar yaşayanlar varsa yardımcı olabilir mi?

Google sorunuma en yakın 
http://www.delphigroups.info/2/ee/291380.html

buldum ama hala çözemedim.

[cinarbil]

(20-08-2022, Saat: 16:36)cinarbil Adlı Kullanıcıdan Alıntı: İyi günler
Delphi 10.2 Tokyo kullanıyorum.
yeni bir proje açıyorum forma statusbar ekliyorum
statusbar Autohint  true
statusbar da 2 adet panel var
form üzerindeki componentlerin  hinterine açıklamalarını yazıyorum
projeyi çalıştırıyorum status alanında birinci panelde component üzerine gelince
ilgili hint alanındaki bilgi yazıyor.
bunu test için yaptım sorun yok

Benin derdim 
Birçok formda dan oluşan proje var formların bir çoğunda statusbar var 
statusbar da  2 adet panel var
formun, formdaki tüm componentlerin ayarlarını birebir yeni projedeki ile karşılaştırdım 
kesinlikle aynı ama statusbar hintler görünmüyor. Componentin showhint true olursa mouse üzerine
gelince component üzerinde hint görünüyor.

test amaçlı projeye yeni bir form ekledim  yeni eklenen formda da
1 statusbar 1 edit var  
 statusbar da hint yazmıyor.

Sorun benim proje ayarlarında olduğu kesin
 
Delphide projeye özel ayarlar
*.dproj dosyasında tutuluyor bunu siliyorum projeyi ilk kaydettiğimde  project / options  daki ayarlara göre tekrar oluşturuyor

daha önce benzer sorunlar yaşayanlar varsa yardımcı olabilir mi?

Google sorunuma en yakın 
http://www.delphigroups.info/2/ee/291380.html

buldum ama hala çözemedim.

Başka çözüm bilen olurda yazarsa sevinirim.
Şimdilik https://www.tek-tips.com/viewthread.cfm?qid=1463922   adresindeki

private 
procedure MyHint(Sender: TObject); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
 Application.OnHint := MyHint; 
 ShowHint           := True; 
 
// ben hint açıklamalarını componentin hint özelliğine yazdım
//Button1.Hint       := 'normal yellow hint|Text in Statusbar'; 
// Button2.Hint       := 'only yellow hint|'; 
// Button3.Hint       := '|text only in statusbar'; 
 //Edit1.Hint         := 'same text'; 
end; 

procedure TForm1.MyHint(Sender: TObject); 
begin 
 StatusBar1.SimpleText := Application.Hint; 
end;

 
kodlar ile yaptım.

[hi_selamlar]

(21-08-2022, Saat: 11:48)cinarbil Adlı Kullanıcıdan Alıntı:

(20-08-2022, Saat: 16:36)cinarbil Adlı Kullanıcıdan Alıntı: İyi günler
Delphi 10.2 Tokyo kullanıyorum.
yeni bir proje açıyorum forma statusbar ekliyorum
statusbar Autohint  true
statusbar da 2 adet panel var
form üzerindeki componentlerin  hinterine açıklamalarını yazıyorum
projeyi çalıştırıyorum status alanında birinci panelde component üzerine gelince
ilgili hint alanındaki bilgi yazıyor.
bunu test için yaptım sorun yok

Benin derdim 
Birçok formda dan oluşan proje var formların bir çoğunda statusbar var 
statusbar da  2 adet panel var
formun, formdaki tüm componentlerin ayarlarını birebir yeni projedeki ile karşılaştırdım 
kesinlikle aynı ama statusbar hintler görünmüyor. Componentin showhint true olursa mouse üzerine
gelince component üzerinde hint görünüyor.

test amaçlı projeye yeni bir form ekledim  yeni eklenen formda da
1 statusbar 1 edit var  
 statusbar da hint yazmıyor.

Sorun benim proje ayarlarında olduğu kesin
 
Delphide projeye özel ayarlar
*.dproj dosyasında tutuluyor bunu siliyorum projeyi ilk kaydettiğimde  project / options  daki ayarlara göre tekrar oluşturuyor

daha önce benzer sorunlar yaşayanlar varsa yardımcı olabilir mi?

Google sorunuma en yakın 
http://www.delphigroups.info/2/ee/291380.html

buldum ama hala çözemedim.

Başka çözüm bilen olurda yazarsa sevinirim.
Şimdilik https://www.tek-tips.com/viewthread.cfm?qid=1463922   adresindeki

private 
procedure MyHint(Sender: TObject); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
 Application.OnHint := MyHint; 
 ShowHint           := True; 
 
// ben hint açıklamalarını componentin hint özelliğine yazdım
//Button1.Hint       := 'normal yellow hint|Text in Statusbar'; 
// Button2.Hint       := 'only yellow hint|'; 
// Button3.Hint       := '|text only in statusbar'; 
 //Edit1.Hint         := 'same text'; 
end; 

procedure TForm1.MyHint(Sender: TObject); 
begin 
 StatusBar1.SimpleText := Application.Hint; 
end;

 
kodlar ile yaptım.

Merhabalar,

Eğer formları ShowModal olarak açıyorsanız gelmiyor olabilir.

Şu şekilde de yapabilirsiniz.
Ana Formunuza bir adet TApplicationEvents bileşeni ekleyin.


Daha sonra ;

procedure TfrmAnaForm.ApplicationEvents1Hint(Sender: TObject);
begin
 StatusBar1.SimpleText := Application.Hint;
end;

ekleyip deneyebilirsiniz.


https://stackoverflow.com/questions/7063...modal-form

Kolay gelsin.

[cinarbil]

(22-08-2022, Saat: 00:17)hi_selamlar Adlı Kullanıcıdan Alıntı:

(21-08-2022, Saat: 11:48)cinarbil Adlı Kullanıcıdan Alıntı: Başka çözüm bilen olurda yazarsa sevinirim.
Şimdilik https://www.tek-tips.com/viewthread.cfm?qid=1463922   adresindeki

private 
procedure MyHint(Sender: TObject); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
 Application.OnHint := MyHint; 
 ShowHint           := True; 
 
// ben hint açıklamalarını componentin hint özelliğine yazdım
//Button1.Hint       := 'normal yellow hint|Text in Statusbar'; 
// Button2.Hint       := 'only yellow hint|'; 
// Button3.Hint       := '|text only in statusbar'; 
 //Edit1.Hint         := 'same text'; 
end; 

procedure TForm1.MyHint(Sender: TObject); 
begin 
 StatusBar1.SimpleText := Application.Hint; 
end;

 
kodlar ile yaptım.

Merhabalar,

Eğer formları ShowModal olarak açıyorsanız gelmiyor olabilir.

Şu şekilde de yapabilirsiniz.
Ana Formunuza bir adet TApplicationEvents bileşeni ekleyin.


Daha sonra ;

procedure TfrmAnaForm.ApplicationEvents1Hint(Sender: TObject);
begin
 StatusBar1.SimpleText := Application.Hint;
end;

ekleyip deneyebilirsiniz.


https://stackoverflow.com/questions/7063...modal-form

Kolay gelsin.

Bilgilendirme için teşekkür ederim Allah c.c razı olsun
sizin dediğiniz gibi yapmak için 

StatusBar1.SimplePanel := True;  
// olması gerekli true yapılınca StatusBar1  da bulunan diğer  paneldeki bilgiler çıkmıyordu.
StatusBar1.SimpleText := Application.Hint;

yukarıda paylaştığım gibi bir procedure tanımladım ve şu an sorunumu çözdüm.
formun oncreate olayına

Application.OnHint := grs_bilgigoster;
ShowHint           := True;

procedure Tgiris_frm.grs_bilgigoster(Sender: TObject);
begin
giris_bilgi.Panels[0].Text := Application.Hint;
end;

form kapatılınca hataya düşmemesi için
formun onclose  olayına mutlaka

Application.OnHint:= nil;

eklenmeli