title image


Smiley hoffe du meinst das ...
sonst Bitte um weitere Erklärung :-)



type

Schlagmichtot= tnotifyevent;



....

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

procedure schlagmichtot(sender: tobject);

end;



var

Form1: TForm1;



....



procedure TForm1.FormCreate(Sender: TObject);

begin

onschlagmichtot:=schlagmichtot;

end;
gelegentlich gelangen Leser meiner (wirren) Beiträge, zur Überzeugung, diese seien
a)unverständlich,
b)falsch,
c)unvollständig,
d)blödsinn
jene sind herzlich eingeladen mich zu korrigieren



Fini ( fini-online )


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: