Udfører et OnEvent på en komponent.create(self)

Der findes en OnChange event der kaldes hver gang der ændres, er det det du mener?

memo1.Modified

fanger ændringer i Memo

Kroning: Ja, det er det event.

Hvordan skal man "fange" det, hvis komponenten er oprette dynamisk?

Du tildeler blot f.eks. OnChange en værdi samtidig med at du opretter Memoen.

with TMemo.Create(self) do
begin
  Onchange:=MemoChange;
  .
  .
  .
end;

Hvad er MemoChange og hvordan kalder man den så? Det er SynEdit jeg bruger.

Det jeg egentlig forsøger er, at oprette, på en pagecontrol, et faneblad med en SynEdit. Jeg har fået klaret det med at oprette faneblad dynamisk, men mangler den del med OnChange.
Det jeg har lavet ser sådan ud:
procedure TForm1.New1Click(Sender: TObject);
Var
  SynEdit1 : TSynEdit;
begin
  ATabSheet := TTabSheet.Create(PageControl1);
  with ATabSheet do
  begin
    PageControl := PageControl1;
    Caption := 'Untitled'+IntToStr(count);
    inc(count);
    ImageIndex := 0;
  end;
  PageControl1.ActivePage := ATabSheet;
  SynEdit1 := TSynEdit.Create(ATabSheet);
  SynEdit1.Parent := ATabSheet;
  SynEdit1.Align := alClient;
end;

Hvis SynEdit også har en OnChange event så tilføjer du:

SynEdit1.OnChange:=MinOnChange;

MinOnChange skal se således ud hvis det er en TMemo, det er muligvis det samme med SynEdit:

procedure TForm1.MinOnChange(Sender: TObject);
begin
// blabla
end;

Husk at du kan bruge den samme MinOnChange procedure til alle dine SynEdit´s, hviken SynEdit der kalder finder du ud af ved at bruge Sender:

(Sender as TSynEdit).???

total iorden. Jeg prøver lige lidt senere.

Det ser ud til at det spiller. Tak for det.

Lige til sidst.

Jeg kunne godt tænke mig at ændre ikonet på TabSheet når det aktive TabSheet med den tilhørende SynEdit ændre sig. Jeg har gjort dette her med succes, men kunne godt tænke mig at vide om det er den "rigtige" måde at gøre det på.

  TTabSheet(TSynEdit(sender).Owner).ImageIndex := 1;

Hvis det virker så er det jo fint, men jeg ville nok gøre det således:
PageControl.ActivePage.ImageIndex:=1;

TPageControl har også en OnChange event man kan bruge:
Fra hjælpen: "Occurs after a new tab is selected."

Svar

Hvad havde du i tankerne omkring at TPageControl har også en OnChange event man kan bruge?

Skulle det være istedet for SynEdit's OnChange?

En anden lille ting. Hvis man nu laver 5 fanebladet med en SynEdit på hver, hvordan finder man ud af om der er lavet en ændring på SynEdit? Jeg tænker på at man skal blive spurgt om man vil gemme indhold hvis der er blevet ændret noget i SynEdit på det aktive faneblad?

OnChange på TPageControl kunne du bruge til at sætte ImageIndex
Der findes en Modified værdi du kan checke for at se om der er foretaget ændringer.
Dvs.

If SynEdit.Modified then
// skal der gemmes?

Er det for alle uanset hvilken?

SynEdit.Modified er for den enkelte, hvis det er hvad du mener. Men hvorfor prøver du ikke bare?

Det kan du tro at jeg vil. :) Men vil gerne lige forstå hvordan dt hænger sammen. Jeg vil bruge en popmenu på fanebladet, (det har jeg fundet ud af), men på den vil jeg så gerne have fat i det faneblad som jeg vil lukke. Skal man så først finde det aktive faneblad og når man så har gjort det, finde ud af om SynEdit er ændret?

Ja, finde det aktive faneblad, brug PageControl.ActivePage, og check så SynEditens Modified verdi.