DBR Delphi-Ecke

// Schriftarten (temporär) installieren und deinstallieren.
// (Der Name der in "Eigen.TTF" enthaltene Schrift ist "eckig_db")
// Zum permanenten Installieren muss die TTF-Datei vorher in den
// Font-Ordner von Windows kopiert und von dort aus aufgerufen werden.

// Getestet mit D4 unter XP

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  AddFontResource('F:\Eigen.TTF'); 
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  button3.font.name := 'eckig_db'; 
end; 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  RemoveFontResource('F:\Eigen.TTF'); 
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
end;