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.

Delphi-Quellcode:

  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)

[NicoDE]

Zitat:

Zitat von citybreaker

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

Fehlerzeile anklicken und F1 drücken.

Code:

interface

type
  [color=red]TFoo[/color] = class;
    procedure [color=red]Bar[/color];
  end;

implementation

procedure [color=red]TFoo.Bar[/color];
begin
end;

[kiar]

hast du das so wie markus zeigt.?

[citybreaker]

jap, hab ich auch schon so probiert. Klappt aber nicht.

[Markus K.]

Im Implementation-Teil musst du die Prozedur so hinzufügen:

Delphi-Quellcode:

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

Tschüß Markus

[citybreaker]

Jetzt gehts. :dancer: :dancer2:


Danke!!!

[Maximus]

Und bei einem OnMouseMove? - Wie kann man herausfinden wo sich der Mauszeiger auf der erstellten Form befindet, und bei Bewegung reagieren?