Wie kann ich das verstehen mit "Schaltflächen am Sender unterscheiden"
Ist dann dies so richtig:
Code:
procedure THaupt_Form.BtnPrintClick(Sender: TObject);
var rec : TRect;
begin
DoPrint := true;
if Sender = Drucken1Click then
DoPrint := PrintDialog1.Execute;
if DoPrint then
end;