Forum: Win32/Win64 API (native code)
Delphi
by mirage228,
24. Mär 2003
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
Forum: Win32/Win64 API (native code)
Delphi
by mirage228,
23. Mär 2003
{
PROCEDURE: ClipboardChanged;
-----------------------------
PARAMETER: Keine
-----------------------------
Überprüft, ob Text im Zwischenspeicher liegt
}
procedure ClipboardChanged;
var
I: Integer;