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
listbox1.Hint:=listbox1.Items[listbox1.itemindex];
a nie powinno byc tam jeszcze czegos takiego jak
ListBox1.ShowHint := True;
ListBox1.ParentShowHint := False;
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
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!!