Procedure für zur Laufzeit erstelle komponente

[citybreaker]

Hallo,

wie kann ich für eine zur Laufzeit erstelle Komponente eine procedure anlegen.
Ich hab z.B. eine Form die MdiChild ist wenn man die schließen will [x] dann
wird diese nur minimiert also müsste ich ja eine OnClose procedure machen
und sie (die Form) komplett schließen.

[Maximus]

Vor diesem Problem stehe ich auch gerade, kann da jemand weiterhelfen?

[mirage228]

Du musst diese Prozedur gemäß des Typs deklarieren und dann dem MDIForm nach der Erstellung zuweisen.

  MeinControl.OnClose := MeineCloseProzedur; (wenn ich das richtig verstanden habe)

mfG
mirage228

[citybreaker]

Leider geht das nicht. Da ich ich ja ein MdiChild hab muss ich bei OnClose "Action := caFree;"
hinschreiben, alerdings wird Action als unbezeichnet angegeben.

[himitsu]

Bei mir geht sowas

Delphi-Quellcode:

Procedure MeineCloseProzedur(Sender: TObject; var Action: TCloseAction);
  Begin
    Action := caFree;
  End;

...

MeinControl.OnClose := MeineCloseProzedur;

[citybreaker]

ungenügende Forward oder external dekalation 'TMain.MeineCloseProcedure'

[kiar]

du musst dem formular schon sagen wo deine procedure ist.

als die procedure inden interface teil rein.

raik

[Die Muhkuh]

trag es oben noch in Public ein!

[Markus K.]

Hi Citybreaker du musst die Prozedur auch entsprechend deklarieren.

Delphi-Quellcode:

type
  Main = class(TForm)
  ...
  Procedure MeineCloseProzedur(Sender: TObject; var Action: TCloseAction);
  ...
  private
  ...
  public
  ...
  end;

Tschüß Markus

[citybreaker]

Hab ich, und da wirds auch makiert. (Rot)