Einzelnen Beitrag anzeigen

Tubos

Registriert seit: 25. Feb 2004
Ort: Yspertal (Niederösterreich)
1.014 Beiträge
 
Delphi 7 Personal
 
#1

Konstruktor direkt aufrufen

  Alt 17. Apr 2004, 14:10
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
Lukas
  Mit Zitat antworten Zitat