2 Proceduren vereinen

[Aphton]

Das ist ja grauslich; deshalb macht man soetwas:

Delphi-Quellcode:

procedure THaupt_Form. Druckbefehl;
begin
  {...}
end;

procedure THaupt_Form.BtnPrintClick(Sender: TObject);
begin
  Druckbefehl;
end;

procedure THaupt_Form.Drucken1Click(Sender: TObject);
var rec : TRect;
begin
if PrintDialog1.Execute then
  begin
    Druckbefehl;
  end;
end;