Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
Delphi 2010 Professional
|
24. Mär 2003, 06:34
Delphi-Quellcode:
procedure TMain.WMDrawClipboard(var Msg: TWMDrawClipboard);
begin
SendMessage(FClipboardOwner, WM_DRAWCLIPBOARD, 0, 0);
Msg.Result := 0;
ClipboardChanged;
end;
procedure TMain.WMChangeCBChain(var Msg: TWMChangeCBChain);
begin
if Msg.Remove = FClipboardOwner then FClipboardOwner := Msg.Next
else SendMessage(FClipboardOwner, WM_CHANGECBCHAIN, Msg.Remove, Msg.Next);
Msg.Result := 0;
end;
Deklaration:
Delphi-Quellcode:
procedure WMChangeCBChain(var Msg: TWMChangeCBChain); message WM_CHANGECBCHAIN;
procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message WM_DRAWCLIPBOARD;
Wichtig: Bei Form.Destroy das einfügen:
ChangeClipboardChain(Handle, FClipboardOwner);
ich hoffe ma, so gehts
David F.
|
|
Zitat
|