Dialogfester schliessen

[Björn Bock]

Hallo,
vielleicht kann mir jemand bei folgendem Problem ein wenig helfen. Ist es möglich ein Dialogfenster aus einer Delphianwendung heraus zu schliessen, oder besser den "OK" Button zu drücken, ohne dass der Benutzer wirklich den Button drücken muss?
Ich verwende die F1Book Komponente und verändere die pDevMode, um die Druckereigenschaften zu verändern, leider bekomme ich immer den Fehler: Kann Printer nicht initialisiren. Wenn ich jedoch das Druckfenster öffne und mit OK bestätige, kann ich ganz ohne Probleme drucken... die Einstellungen sind auch alle übernommen!
Ich bin echt ratlos... vielen Dank für eure Hilfe

[Christian Seehase]

Moin Björn,<br>
<br>
such doch mal hier im Forum nach<br>
<br>
SendMessage<br>
BM_CLICK<br>
#32770<br>
EnumWindows<br>
FindWindow<br>
EnumChildWindows<br>
<br>
nicht gerade mit allen auf einmal, aber so drei bis vier.<br>
Da solltest Du Fundstellen erhalten.<br>
<br>
Ciao<br>
Chri

[Björn Bock]

Vielen Dank für Deinen Tip, leider hat es nicht geklappt!

Vielleicht kannst Du mir aber trotzdem helfen:
ich erhalte jedesmal die Fehlermeldung, dass der Drucker nicht initialisiert werden kann! Hast Du eine Ahnung woran es liegt?

Printer.GetPrinter(aDevice,aDriver,aPort,hPrinter) ;
with F1Book1 do begin
SetPrintScale(95,true,1,1);
PrintHCenter :=true;
PrintVCenter :=true;

if hPrinter <> 0 then begin
pDMode := GlobalLock(hPrinter);
if pDMode <> nil then begin
pDMode^.dmFields := pDMode^.dmFields or DM_ORIENTATION;
pDMode^.dmOrientation := DMORIENT_LANDSCAPE;
pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE;
pDMode^.dmPaperSize := DMPAPER_A4;
pDMode^.dmFields := pDMode^.dmFields or DM_DEFAULTSOURCE;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hPrinter);
end;
end;
PrintDevMode := hPrinter;
end;
&#10

[Christian Seehase]

Moin Björn,<br>
<br>
tut mir leid, aber Drucker sind nicht mein Bereich, damit kenne ich mich eigentlich gar nicht aus.<br>
Button per Programm drücken, oder Edit's ausfüllen und Ähliches wäre, i.d.R., kein Problem. ;-)<br>
<br>
Ciao<br>
Chri