title image


Smiley Re: hoffe du meinst das ...
du scheinst die vielen schönen werke von assa und co in letzter zeit ganzschön zu vergessen :-)







procedure TimerEvent(Self, Sender: TObject);

begin

//irgendas

end;





und das willste nun woanders zuweisen, dan versuch mal diesen hier:





type

TMethodPointer = packed record

pMethod: Pointer;

pObject: TObject;

end;





procedure TForm1.FormCreate(Sender: TObject);

var

pm : TMethodPointer;

begin

pm.pMethod := @TimerEvent;

pm.pObject := nil;



Timer1.OnTimer:=TNotifyEvent(pm);

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: