Sender???

[Alex_ITA01]

ok danke jetzt gehts,
und wenn ich das in eine procedure packen will?

Delphi-Quellcode:

procedure Test(Sender:TObject);
begin
  if (Sender is TButton) then
  begin
    if (Sender as TButton).Name = 'Button2' then
    begin
      if Form1.OpenDialog1.Execute then
      begin
        ...
      end;
    end;
    if (Sender as TButton).Name = 'Button1' then
    begin
      Form1.close;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TEST;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TEST;
end;

[edit=sakura]Delphi-TAGs gesetzt. Mfg, sakura[/edit]