Wie frage ich bei OnClose ab ob ein Button geklickt wurde?

[oki]

Hi,

merke dir den letzten Button und verzweige in OnClose.
Bsp.:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
    FLastButton : TspeedButton;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  FLastButton := Sender; // hier Button merken

  // hier weiter mit deinem Code
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IF FLastButton = SpeedButton1 then begin
  // ..... hier deine Behandlung
  end;
  // hier eventuell mit anderen Button-Auswertungen weiter
end;

Gruß oki