Mega Code Archive

 

Categories / Delphi / Graphic

 

Ipucu penceresinin özellestirilmesi

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;