Procedure für zur Laufzeit erstelle komponente

[NicoDE]

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.


Danke!!!

[Maximus]

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