Application.ActivateHint(); Nasıl kullanabilirim?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
cLaW
Üye
Mesajlar: 46
Kayıt: 06 Eki 2008 02:16

Application.ActivateHint(); Nasıl kullanabilirim?

Mesaj gönderen cLaW »

Bir adet trackbarın MouseMove olayına

if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then
Application.ActivateHint(Mouse.CursorPos);

Kodlarını yazdım fakat hint gösterilmiyor ama sadece

Application.ActivateHint(Mouse.CursorPos);

yazarsam sol tık bırakınca hint aktif oluyor bu sorunu aşabilirmiyim Trackbarın çubuğu oynatıldığı sürece hintini göstermek istiyorum.
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Re: Application.ActivateHint(); Nasıl kullanabilirim?

Mesaj gönderen mrmarman »

Aşağıdaki gibi bir dene istersen...

Kod: Tümünü seç

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then begin
    TrackBar1.Hint := Format('%d/%d', [ TrackBar1.Position, TrackBar1.Max]);
    TrackBar1.ShowHint := True;
    Application.ActivateHint(Mouse.CursorPos);
  end else TrackBar1.ShowHint := False;
end;
Resim
Resim ....Resim
cLaW
Üye
Mesajlar: 46
Kayıt: 06 Eki 2008 02:16

Re: Application.ActivateHint(); Nasıl kullanabilirim?

Mesaj gönderen cLaW »

Formuma Tema vermek için alphaskins bileşenlerini kullanıyorum standart trackbarda oluyor fakat Alphanın trackbarında buda olmadı bi fikriniz varmı hocam yoksa ben kılıfına uydurmaya çalışrıım teşekkürler :)
cLaW
Üye
Mesajlar: 46
Kayıt: 06 Eki 2008 02:16

Re: Application.ActivateHint(); Nasıl kullanabilirim?

Mesaj gönderen cLaW »

Teşekkürler sorun çözüldü alpha paketinde sTrackbar.pas ' da WndProc proceduru içinde

Kod: Tümünü seç

      WM_LBUTTONDBLCLK, WM_LBUTTONDOWN : if not (csDesigning in ComponentState) and Enabled then begin
        if not ShowHintStored then begin
          AppShowHint := Application.ShowHint;
          //Application.ShowHint := False;
          ShowHintStored := True;
        end;
Satırlarındaki Application.ShowHint := False; kodunu yorum olarak kabul ettirdim ve çalışıyor teşekkürler :)
Cevapla