ændring af font typen

Lav en nedarvning og brug den.

hvad er en nedarving og hvordan laver jeg en sådan?

Du laver en Ny Comp. der arver fra TMemo. Laver lige et eks.

unit MemoEx;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TMemoEx = class(TMemo)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create( aOwner : TComponent ); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComps', [TMemoEx]);
end;

{ TMemoEx }

constructor TMemoEx.Create(aOwner: TComponent);
begin
  inherited;
  Font.Name := 'Arial';
  Font.Size := 12;
end;

end.

Denne kode smider du i en unit, der efter vælger du install comp. og peger på denne unit

/Martin

Memo1.Font.name := 'Times new roman';

sæt den i formens onCreate

Sæt alle memo'ernes ParentFont Property til True (det er de som standard), og sæt så skrifttypen til det den skal være:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Font.Name := 'Times New Roman';
end;

Så sætter du alle memo'ernes font til den samme som den din form har, altså Times New Roman.

//hermandsen

Og ALLE andre controller på formen vil også skifte, den smart og nemme måde er som jeg har beskrevet, det er forøvrigt også sådan Borland anbefaler at man gør ( læs hjælpen )

:)

>>martinlind
Det var også bare et foreslag... Hvis manden alligevel ikke har endet på sin form end memoer så kan det jo være fint nok! ;) Men vil give dig ret i at din metode nok er mere velegnet hvis han bare skal bruge en standard memo der hver gang har Times New Roman! ;)