Event herausfinden

[Aenogym]

hi,

übergib der prozedur doch einfach eine ID oder sowas:

Delphi-Quellcode:

procedure machwas(procID: integer);
begin
  case procID of
    0: //von OnExit
    1: //von OnEnter
  end;
end;

procedure TForm1.Button1Enter(Sender:TObject);
begin
  machwas(1);
end;

procedure TForm1.Button1EXit(Sender:TObject);
begin
  machwas(0);
end;

da war wer schneller^^

Aenogym