Dymek w pozycji kursora

0

Witam,

Mam ListView a w nim klika pozycji. Teraz chciałbym, aby po najechaniu (a nie po kliknięciu) myszką na daną pozycję pokazał się dymek z podpowiedzią. Może ktoś z Państwa ma pomysł jak ten problem rozwiązać.

Z góry dziękuję za pomoc.

Piotr Murawski

0

listbox1.Hint:=listbox1.Items[listbox1.itemindex];

0

a nie powinno byc tam jeszcze czegos takiego jak
ListBox1.ShowHint := True;
ListBox1.ParentShowHint := False;

0

listbox1.Hint:=listbox1.Items[listbox1.itemindex];

No, ale to będzie hint z zaznaczonym itemem. A jemu nie chodzi o zaznaczenie z tego, co zrozumiałem

0

masz tu poczatek dalej mi sie nie chcialo ale chyba o to ci chodzilo?? czyz nie??

var
p : integer;

procedure TForm1.DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
begin
if HintInfo.HintControl = ListBox1 then
begin
with HintInfo do
begin
if ListBox1.Items[P] <> '' then
begin
HintStr := ListBox1.Items[P];
end;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.ShowHint := True;
ListBox1.ParentShowHint := False;
Application.ShowHint := True;
Application.OnShowHint := DoShowHint;
end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
P := Y div ListBox1.ItemHeight;
end;

P.S. dokoncz to jezeli potrafisz poczatek juz masz!!

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0