Hallo<BR>
<BR>
habe ein kleines Problem. Vieleicht kann mir einer helfen.<BR>
<BR>
Im Delphi5 habe ich die PostMessage verwendet um einen Druckvorgang in einen<BR>
Modale-Fenster zu starten.<BR>
Wie funktioniert die PostMessage in .Net (Delphi8) ?<BR>
<BR>
Danke im Voraus<BR>
<BR>
<PRE>
type<BR>
TLDForm0001 = class(TForm)<BR>
Printer: TSWSPrinter;<BR>
.... <BR>
private<BR>
procedure CMStartDrucken(var Message: TMessage);message CM_STARTDRUCKEN;<BR>
.....<BR>
END<BR>
.......
procedure TLDForm0001.FormActivate(Sender: TObject);<BR>
begin<BR>
PostMessage(Handle,CM_STARTDRUCKEN,0,0);<BR>
end;<BR>
.......<BR>
Procedure TLDForm0001.CMStartDrucken(var Message: TMessage);<BR>
begin<BR>
if FDruckGestartet = false then begin<BR>
FDruckGestartet:=true;<BR>
......<BR>
</PRE>
<BR>
habe ein kleines Problem. Vieleicht kann mir einer helfen.<BR>
<BR>
Im Delphi5 habe ich die PostMessage verwendet um einen Druckvorgang in einen<BR>
Modale-Fenster zu starten.<BR>
Wie funktioniert die PostMessage in .Net (Delphi8) ?<BR>
<BR>
Danke im Voraus<BR>
<BR>
<PRE>
type<BR>
TLDForm0001 = class(TForm)<BR>
Printer: TSWSPrinter;<BR>
.... <BR>
private<BR>
procedure CMStartDrucken(var Message: TMessage);message CM_STARTDRUCKEN;<BR>
.....<BR>
END<BR>
.......
procedure TLDForm0001.FormActivate(Sender: TObject);<BR>
begin<BR>
PostMessage(Handle,CM_STARTDRUCKEN,0,0);<BR>
end;<BR>
.......<BR>
Procedure TLDForm0001.CMStartDrucken(var Message: TMessage);<BR>
begin<BR>
if FDruckGestartet = false then begin<BR>
FDruckGestartet:=true;<BR>
......<BR>
</PRE>
Comment