title image


Smiley Re: //ot Uwe
Ihr könnt euch ja behaken, aber ich mach trotzdem Fehler, denn es funktioniert nicht.

Ich habe die Prozedur deklariert:



public

procedure MyButtonClick;

{ Public-Deklarationen }

end;



implementation

Hier die Definition der Methode:

{$R *.DFM}

procedure MyButtonClick (Sender:TObject);

begin

Â…

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

but:=TButton.create(self);

but.Parent:=Form1;

but.Caption:='HALT';

but.setbounds(300,200,50,60);

but.onclick:=MyButtonClick(Sender:TObject); Hier die Onklick Anweisung!

end;



Es funktioniert nicht.



abnimra



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: