[delphi] hint window (zoals kazaa)

[JSchut]

ik heb nu het volgende:

code:

procedure TForm1.FileNameBoxMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
Var
   APoint : TPoint ;
   Index : Integer ;
   HW : THintWindow ;
   Rec : TRect ;
   sHint : String ;
   GenreValue: String;
begin
  APoint.X := X;
  APoint.Y := Y;

  Index := FileNameBox.ItemAtPos(APoint, True);
  If Index >= 0 Then Begin
     HW := THintWindow.Create(Nil);
     Try
     GetCursorPos(APoint);

      with readID3Tag(fullPathListbox.Items[index]) do
          begin
          if (Genre >= 0) and (Genre <= 146) then
            GenreValue := Genres[Genre]
          else
            GenreValue := 'N/A';
          sHint := 'Titel: ' + Trim(Titel) + #13 + 'Artiest: ' + Trim(Artist) +
          #13 + 'Album: ' + Trim(Album) + #13 + 'Jaar: ' + Trim(Year) + #13 +
          'Genre: ' + GenreValue;
          //Form1.FileNameBox.Items.Add(Trim(Artist) + ' - ' + Trim(Titel));
          end;

      //sHint := FileNameBox.Items.Strings[Index] ;
      Rec.Top := APoint.Y + 20 ;
      Rec.Left := APoint.X  ;
      Rec.Right := Rec.Left +
         HW.Canvas.TextWidth(sHint)+6;
      Rec.Bottom := Rec.Top +
         HW.Canvas.TextHeight(sHint)*5+4;
      HW.ActivateHint(Rec,sHint);
      HW.Refresh ;
      Sleep(1000);
      HW.ReleaseHandle ;
     Finally
      HW.Free ;
     End;
  End;
end;

ff in het kort wat dit doet:

als je met je muis op 1 van de item in de listbox(filenamebox) staat dan een hint windowlaten zien.

dat gaat opzich wel goed

maar wat ik eigenlijk wil is dat je als je er 1 sec op een item staat dat ie hem dan pas laat zien en dat ie 2 sec zichtbaar blijft

(Liefst ook nog met in en uitfaden maarja dat is ff voor latere zorg )

[Verwijderd]

F1 ?

[JSchut]

ja ik ben al een heletijd aan het zoeken en ik kom er niet uit

anders had ik het hier niet gevraagd

[chaotik]

Zou je daar niet gewoon een timertje voor kunnen gebruiken?

[DigiK-oz]

Heet dit niet gewoon een Tooltip ?

[Verwijderd]

volgens mij valt dat alles in te stellen bij de TApplication, dan hoef je alleen van de listbox de juiste hint in te vullen

edit:

bv. property TApplication.HintHidePause: Integer;//hoelang hint zichtbaar
en
property TApplication.HintPause: Integer;// hoelang voordat hint komt

[edit2]
het invullen van de juiste hint kanje in de TApplication.OnHint doen. (zie help)
[/edit2]

[ArieProductions]

Hier nog wat uitleg:

http://www.assu-assist.nl/pgg/176.shtml

[JSchut]

ik heb het nu met een sleep gedaan en heb het nu voor elkaar maar het nadeel is dat als ikvan een bepaald item afga dan blijft evengoed de hint nog ff staan terwijl die dan juist weg moet gaan is er niet een ander soort timer

p.s. niet TApplication.HideHintPause ed dat werkt namelijk niet op de manier hoe ik het nu heb gedaan

[Creepy]

Op dinsdag 09 april 2002 12:37 schreef JSchut het volgende:
ik heb het nu met een sleep gedaan en heb het nu voor elkaar maar het nadeel is dat als ikvan een bepaald item afga dan blijft evengoed de hint nog ff staan terwijl die dan juist weg moet gaan is er niet een ander soort timer

TTimer en dan in de ontimer event hiervan de hint tonen.
TTImer kan je aan en uit zetten en de tijd opnieuw instellen.