Event herausfinden

[silentAMD]

hi,

wie kann ich herausfinden, ob eine procedure per "onenter" event oder per "onexit" aufgerufen wurde???


PLEASE HELP!!!!

[Ultimator]

Schreib dir das, was bei den Prozeduren OnEnter / OnExit ausgeführt werden soll, in ne eigene Prozedur, der du als Parameter übergibst, von wo aus sie aufgerufen wurde ;-)

[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

[Sharky]

Oder das ActiveControl auswerten:

Delphi-Quellcode:

procedure TForm1.MachWas(Sender: TObject);
begin
  if (ActiveControl = Sender) then
  begin
    ShowMessage ('On Enter');
  end
  else
  begin
    ShowMessage ('On Exit');
  end;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  MachWas (Sender);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  MachWas (Sender);
end;