Einzelnen Beitrag anzeigen

Muetze1
(Gast)

n/a Beiträge
 
#16

Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt

  Alt 12. Mär 2008, 12:39
@RavenIV: Was ich bei deinen beiden Beispielen vermisse: wo bzw. was ist AcButtonPress?

Wenn, dann typecaste den Sender:

Delphi-Quellcode:
procedure TFoStatus.AcButtonPressExecute(Sender: TObject);
begin
  Assert(Sender is TBasicAction, 'Ups, doch keine TBasicAction...');

  if TBasicAction(Sender).ActionComponent = PDF1Laden then
  begin
// MachWas;
  end
  else if TBasicAction(Sender).ActionComponent = PDF2Laden then
  begin
// MachWasAnderes;
  end;
end;
  Mit Zitat antworten Zitat