Hallo!
Der Benutzer meines Programmes soll die Schriftart und -farbe der Hints selbst wählen können.
Dazu benutze ich folgenden Code:
Delphi-Quellcode:
Type
TMyHintWindow = Class (THintWindow)
Constructor Create (AOwner: TComponent) ; override ;
end;
und
Delphi-Quellcode:
Constructor TMyHintWindow.Create(AOwner:TComponent) ;
begin
Inherited Create (AOwner);
Canvas.Font:=form1.fontdialog1.font;
end;
Das funktioniert.
Beim Programmstart muss ich dann folgendes machen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
{ ... }
HintWindowClass := TMyHintWindow;
Application.ShowHint := false;
Application.ShowHint := True;
{ ... }
damit das übernommen wird.
Was mache ich, wenn ich das während des Programmablaufes noch ändern will?
nochmal dasselbe aufrufen, nützt nichts.
Kann man den Konstruktor direkt aufrufen?
Wenn ja, was muss ich als AOwner übergeben?
Thx;
Tubos