| |
 |
Wie kann man die Schriftart eines Hints wechseln?
06-02-2003 17:12
|
|
Um dies zu erreichen erzeugt man eine neue, von der Klasse THintWindow abgeleitete Variable. Anschlie?end ?berschreibt man die Variable HintWindowsClass mit der neuerstellten.
z.B.:
|
Type
TMyHintWindow = Class (THintWindow)
Constructor Create (AOwner: TComponent);override;
end;
{...}
implementation
{...}
Constructor TMyHintWindow.Create(AOwner:TComponent);
begin
Inherited Create (AOwner);
Canvas.Font.Name := 'Courier New';
Canvas.Font.Size := 72;
end;
{...}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowHint := false;
HintWindowClass := TMyHintWindow;
Application.ShowHint := True;
end;
// Die ?nderung betifft in diesem Beispiel alle
// Hints der Applikation
|
|
|
|
|
