2 Proceduren vereinen

[himitsu]

Was genau verstehst du denn nicht?

Zitat:

Delphi-Quellcode:

if Sender = Drucken1 then
  DoPrint := PrintDialog1.Execute
else
  DoPrint := true;
if DoPrint then
  //Druckbefehl

Delphi-Quellcode:

if (Sender <> Drucken1) or PrintDialog1.Execute then
  //Druckbefehl

[m-werk]

Ok, ich habs jetzt:

Code:

procedure THaupt_Form.Drucken1Click(Sender: TObject);
var rec : TRect;
var DoPrint : boolean;
begin
  if Sender = Drucken1 then
    DoPrint := PrintDialog1.Execute
  else
    DoPrint := true;
  if DoPrint then
    begin
      //Druckbefehl
    end;
end;

Beiden Buttons habe ich bei OnClick dieses Ereignis zugewiesen. Funktionieren tut es jetzt.

Irgendwie gefällt mir das aber nicht, da ich in der Procedure einen Button stehen habe.

[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;

[m-werk]

Spitze, genau sowas hab ich gesucht.

Hab es zwar etwas ändern müssen, aber es funktioniert prima.

DANKE nochmals

[guinnes]

Zitat von m-werk:

Spitze, genau sowas hab ich gesucht.

Hattest du das nicht selber im 1. Beitrag so geschrieben ??

[DeddyH]

Ja eben, ich dachte, genau das will er nicht

[RWarnecke]

Der Unterschied zwischen Beitrag #1 und Beitrag #11 ist, dass er nur einmal die Funktion Druckbefehl pflegen muss.