Forum: Sonstige Fragen zu Delphi
by m-werk,
13. Apr 2012
Spitze, genau sowas hab ich gesucht.
Hab es zwar etwas ändern müssen, aber es funktioniert prima.
DANKE nochmals
Forum: Sonstige Fragen zu Delphi
by m-werk,
13. Apr 2012
Ok, ich habs jetzt:
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
Forum: Sonstige Fragen zu Delphi
by m-werk,
13. Apr 2012
Ich versteh's nicht. Sorry.
Forum: Sonstige Fragen zu Delphi
by m-werk,
13. Apr 2012
Wie kann ich das verstehen mit "Schaltflächen am Sender unterscheiden"
Ist dann dies so richtig:
procedure THaupt_Form.BtnPrintClick(Sender: TObject);
var rec : TRect;
begin
DoPrint := true;
if Sender = Drucken1Click then
DoPrint := PrintDialog1.Execute;
if DoPrint then
Forum: Sonstige Fragen zu Delphi
by m-werk,
13. Apr 2012
Hallo,
ich habe in meinem Formular einen Button, der einen Druckbefehl aufruft OHNE dass das Druckermenü erscheint wo ich den Drucker auswählen kann
procedure THaupt_Form.BtnPrintClick(Sender: TObject);
var rec : TRect;
begin
//druckbefehl
end;