Button erstellen und Funktion zuweisen....

[neolithos]

NewButtonClick kann auch in einer anderen Unit liegen, muss aber eine Methode sein.

Delphi-Quellcode:

TCmd = class
  procedure NewButtonClick(Sender : TObjcet);
end;

var fCmd : TCmd;


irgentwo erstellen
fCmd := TCmd.Create;

in FormCreate
btnNew.OnClick := fCmd.NewButtonClick;