Standart ipucu penceresi, kismen de olsa özellestirilebilir. Iste örnegi.
Type
TMyHintWindow = Class (THintWindow)
Constructor Create (AOwner: TComponent); override;
end;
var
Form1: TForm1;
implementation
Constructor TMyHintWindow.Create (AOwner: TComponent);
begin
Inherited Create (AOwner);
canvas.brush.color:=clwhite;
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;