Hint Neden Gözükmez

[aslangeri]

s.a.
arkadaşlar çalşan bir programda hintlerle ilgili bir sıkıntım var.
bazı makinelerde hintleri gösteriyor bazılarıda göstermiyor.
bunun sebebi hikmeti ne olabilir.
projede

Kod: Tümünü seç

application.hintpause:=0

ayırca dbgridin onmousemove unda hinte değer atıyorum.
bazı bilgisayarlarda hinti gösterirken bazılarında göstermiyor.
acaba sistemle ilgili bir ayarmı yapmak lazım. yoksa bilmediğimiz başka birşeylermi var.
teşekkürler.

[Ottoman]

Selam.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.HintPause:=0;//(DBGrid'in "Hint" olayına atıyorum),Form'un OnCreate olayında problemsiz çalışıyor.
 Application.HintHidePause:=4000;//Normal Kullanım.
 Application.HintHidePause:=7000;//Ben bunu kullanırım;1000=1 saniyedir
 DBGrid1.Hint:='Liste içine  Dokununuz?'+chr(13)+'Siralama icin Kolon Basliklarına Tiklayiniz.';
end;
 

[sabanakman]

Mrb; Bazı makinelerden kasıt WinXP, Win98 olabilir mi? Eğer öyle ise hintpause değeri yüzündendir çünkü başıma geldi. Yanlış hatırlamıyorsam bu değeri -1 yapınca da ekranda sürekli kalıyordu ama yine de olmazsa 65535 yap en temizi olur. Kolay gele.

[aslangeri]

s.a.
önerileriniz için teşekkürler arkadaşlar.
makinelerin ikisindede xp yüklü.
butonlardaki sabit hintleri gösteriyor. ancak benim
kodlar değiştirdiğim hintleri göstermiyor.
ilginç bir durum.

[Ottoman]

3'ü XP 1'i 2000 4 Bilgisayarda denedim,sizin kullandığınız şekilde,hiç bir problem yok! Bilgisayardada,Delphi'dede olabilir.Delphinin içinde Exe'nizi çalıştırdığınız zaman Hint'te problem yoksa(Delphi'deyse yeniden yükleyiniz) bilgisayarların tümünde göstermesi lazım,hintleri göstermeyen Bilgisayarda ,"Tüm varsayılanları"geri yükleyiniz!.

[tuanna]

s.a.
önerileriniz için teşekkürler arkadaşlar.
makinelerin ikisindede xp yüklü.
butonlardaki sabit hintleri gösteriyor. ancak benim
kodlar değiştirdiğim hintleri göstermiyor.
ilginç bir durum.

Üstadım...sen üstadsın ...

Garip Durum:
1- Normal hitnleri göserip senin kodla yazdığımı göstermiyor...
2- Bu olayların bir makinada olup diğerinde olmaması

Hintlerle alakalı olan kod bloğunuzu atabilirmisiniz...

[aslangeri]

tabiki.
delphiden objh.insp. e yazdığımı gösteriyor.
(mesela butonların hinti) ama ilgili griddin mousemove olayına yazdığım hinti göstermiyor.

Kod: Tümünü seç

procedure TFXXXXX.DBGXXXXXMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  dbgXXXX.Hint:=dmXXX.TXXXXOUT_ALANADI.AsString;
end;

kod sadece bu.
dediğim gibi bazılarında gösteriyor. bazılarında göstermiyor.

[Hakan Can]

Aslında şöyle bir test ile olayı daha netleştirebilirsiniz.

Forma uygun bir yere TLabel koyun ve kodu şuna benzer şekilde değiştirin:

Kod: Tümünü seç

procedure TFXXXXX.DBGXXXXXMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if dbgXXXX.Hint <> dmXXX.TXXXXOUT_ALANADI.AsString then dbgXXXX.Hint := dmXXX.TXXXXOUT_ALANADI.AsString;
  if Label1.Caption <> dmXXX.TXXXXOUT_ALANADI.AsString then Label1.Caption := dmXXX.TXXXXOUT_ALANADI.AsString;
end; 

Sorun OnMouseMove içinde "if dbgXXXX.Hint <> dmXXX.TXXXXOUT_ALANADI.AsString" kontrolu yapılmamasından kaynaklanıyor büyük bir ihtimalle.

İyi çalışmalar.

[sabanakman]

Bence de hint daha gösterilemeden yeni bir hint değeri yazıldığı için olabilir. Bunun yerine tabloların AfterScrool olayına yazılsa nasıl olur?

[tuanna]

tabiki.
delphiden objh.insp. e yazdığımı gösteriyor.
(mesela butonların hinti) ama ilgili griddin mousemove olayına yazdığım hinti göstermiyor.

Kod: Tümünü seç

procedure TFXXXXX.DBGXXXXXMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  dbgXXXX.Hint:=dmXXX.TXXXXOUT_ALANADI.AsString;
end;

kod sadece bu.
dediğim gibi bazılarında gösteriyor. bazılarında göstermiyor.

Bence Burdaki mouse move olayı tam gerçekleşmiyor gerçekleşse bile...
Burdaki değerin ne olduğu mevhul gibi belkide boşluk... nerden biliyorsunuz...
Kodu Şöle Yapsan ne Olur Sizce...:

Kod: Tümünü seç

procedure TFXXXXX.DBGXXXXXMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  showmessage(dmXXX.TXXXXOUT_ALANADI.AsString);
  dbgXXXX.Hint:=dmXXX.TXXXXOUT_ALANADI.AsString;
end;

[tuanna]

evet anladım
sorun şu....

Şimdi sen hint değerini atıyorsun ama...hinti gösterme süresine yetişmiyor...Yeni bir hint ataması yapıyorsun...bu kadar sıklıkla yenilenen bir hint değeri bazen görünüyor bazen görünmüyor gibi duruyor...

[aslangeri]

s.a.
evet bu olabilir.
yalnız müşterinin makinesi başka şehirde olduğu için hemen deneme imkanım yok.
eğer sonuç alırsam burda iletirim inşallah.
teşekkür ediyorum arkadaşlar.