Specielle hints

tilføj følgende unit til dit project:

unit CoolHint;

interface

uses Windows, Classes, Controls, Forms, Messages, Graphics;

type

  TMyHint = class(THintWindow)
  public
    procedure Paint; override;
  end;

implementation

procedure TMyHint.Paint;
var
  R: TRect;
begin
  Color := clBlue;
  Canvas.Font.Size := 20;
  Canvas.Font.Name := \'Comic Sans MS\';
  R := ClientRect;
  Inc(R.Left, 1);
  Canvas.Font.Color := clInfoText;
  DrawText(Canvas.Handle, PChar(Caption), Length(Caption), R,
          DT_NOPREFIX or DT_WORDBREAK or DT_CENTER or DT_VCENTER);
end;

var
  OldHintClass: THintWindowClass;

function SetNewHintClass(AClass: THintWindowClass): THintWindowClass;
var
  DoShowHint: Boolean;
begin
  Result := HintWindowClass;
  DoShowHint := Application.ShowHint;
  if DoShowHint then
    Application.ShowHint := False;
  HintWindowClass := AClass;
  if DoShowHint then
    Application.ShowHint := True;
end;

initialization
  OldHintClass := SetNewHintClass(TMyHint);

finalization
  SetNewHintClass(OldHintClass);

end.

http://www.delphizine.com/features/1999/12/di199912ma_f/di199912ma_f.asp og
http://www.delphizine.com/features/2000/01/di200001ma_f/di200001ma_f.asp er to rigtig gode artikler. Start med at downloade eksemplet
http://www.delphizine.com/features/2000/01/di200001ma_f/di200001ma_f.zip så skal du se løjer.

nico22>> Tak for det, du har i hvert fald sikret dig halvdelen af point\'sne :)

pstric>> Har du haft programeksemplet hentet ?? Jeg kan hverken kompilere programmet, eller installere komponentet ?? Har du fået det til at virke. Fortæl :)

/SpEeDy

speedy>> Jeg kan ikke få Delphi til at compile lige nu, men det er et helt andet problem.

Ja, da jeg første gang læste artiklen, havde jeg ingen problemer. Installer komponenten ved at vælge Components|Install Component... Vælg bare standardpakken dclusr50.dpk, og vælg den der WAIHintListBox.pas. Så skulle du få installeret komponenten. Nu skulle du så kunne åbne projektet hintp.dpr og compile det.

Netop det har jeg prøvet, men den kan ikke installere komponenten :( Men artiklen forklarer det vist nok meget godt (har lige skimmet den) så kan det være at komponenten vil installeres en anden dag :))

Men tak til jer !

/SpEeDy

speedy>> Tak for point\'ene, men vi blev jo ikke helt færdige. Her er, hvad jeg gjorde:

Download .zip filen til D:\\Program Files\\Borland\\Delphi5\\Projects og udpak den i ...\\Projects\\di200001ma_f
Åben Delphi (jeg bruger D5, det er vist samme procedure i D4 og lidt andre menupunkter i D3)
Vælg Component|Install Component...
Klik Browse... ud for Unit file name og vælg filen D:\\Program Files\\Borland\\Delphi5\\Projects\\di200001ma_f\\WAIHintListBox.pas
Ud for Package file name skal der stå d:\\program files\\borland\\delphi5\\Lib\\dclusr50.dpk (dog muligvis ikke D:\\Program Files, men det havde du jo nok gættet)
Hvis der ikke står d:\\program files\\borland\\delphi5\\Lib\\dclusr50.dpk, så klik på Browse... og find dcluse50.dpk i Lib\\ dir\'et i Delphi\'s installationsdir.
Klik på OK
Klik yes til \"Package dclusr50.bpl will be rebuilt. Continue?\"
Hvis der kommer en messagebox op, som lyder Package \'dclusr50\' is about..., så klik på Yes.
Nu får du at vide, at komponenten er installeret. Klik OK.

Vælg File|Open Project... og find Projects i Delphi\'s installationsdir. Vælg di200001ma_f\\hintp.dpr
Nu kommer der en message om at Delphi ikke kan finde resourcefilen, men den laver en ny, så det er OK.
Nu skulle du kunne compile og køre eksemplet med F9.

Som jeg skrev før, har jeg prøvet dette. Jeg ved godt hvordan man installerer komponenter :)

Men den skrev at den manglede en fil for at kompilere. Men senere fandt jeg så ud af, at det var en tidligere installeret komponent, jeg ikke havde fået fjernet :)

Så nu virker det. Det er utroligt hvad man kan med windows hints :))

Tak for hjælpen begge to !

/SpEeDy