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.
Application.ActivateHint(); Nasıl kullanabilirim?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Application.ActivateHint(); Nasıl kullanabilirim?
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;
Re: Application.ActivateHint(); Nasıl kullanabilirim?
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 

Re: Application.ActivateHint(); Nasıl kullanabilirim?
Teşekkürler sorun çözüldü alpha paketinde sTrackbar.pas ' da WndProc proceduru içinde
Satırlarındaki Application.ShowHint := False; kodunu yorum olarak kabul ettirdim ve çalışıyor teşekkürler 
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;
