AW: 2 Proceduren vereinen
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; |
AW: 2 Proceduren vereinen
Spitze, genau sowas hab ich gesucht.
Hab es zwar etwas ändern müssen, aber es funktioniert prima. DANKE nochmals |
AW: 2 Proceduren vereinen
Zitat:
|
AW: 2 Proceduren vereinen
Ja eben, ich dachte, genau das will er nicht :gruebel:
|
AW: 2 Proceduren vereinen
Der Unterschied zwischen Beitrag #1 und Beitrag #11 ist, dass er nur einmal die Funktion Druckbefehl pflegen muss.
|
AW: 2 Proceduren vereinen
Das kommt aber darauf an, was man sich hinter dem Kommentar in #1 vorstellen muss. So etwas kommt halt dabei heraus, wenn man mit Informationen geizt.
|
AW: 2 Proceduren vereinen
Wobei Viele auch gerne sowas machen:
Delphi-Quellcode:
Und das mit dem Button in der Prozedur.
procedure THaupt_Form.BtnPrintClick(Sender: TObject);
begin //Druckbefehl end; procedure THaupt_Form.Drucken1Click(Sender: TObject); begin if PrintDialog1.Execute then BtnPrintClick(nil); end; Das ist gäniger Alltag ... schließlich ist der Sender ja dafür da, also daß man ihn verwenden und/oder vergleichen kann. Man könnte aber auch das Property Tag nutzten, also das Property für den Programmierer, welches man z.B. bei Drucken1 auf 1 setzt und dann abprüft.
Delphi-Quellcode:
Wobei der Vergleich über die Variable aber einfacher, übersichtlicher, verständlicher und vorallem fehlerunanfälliger ist, gegenüber dem Tag.
procedure THaupt_Form.Drucken1Click(Sender: TObject);
begin if ((Sender as TComponent).Tag <> 1) or PrintDialog1.Execute then begin //Druckbefehl end; end; Aber wenn man die Variante mit
Delphi-Quellcode:
OOP-mäßig noch weiter fortführt, dann landet am Ende der komplette Funktions-Code in mindestens einer eigenen Klasse.
procedure THaupt_Form.Druckbefehl;
|
AW: 2 Proceduren vereinen
Zitat:
Zitat:
|
AW: 2 Proceduren vereinen
Unter "Druckbefehl" habe ich jetzt einfach mal interpretiert, dass er hier noch den Druck irgendwie aufbereitet.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz