Delphi-Quellcode:
{
PROCEDURE: ClipboardChanged;
-----------------------------
PARAMETER: Keine
-----------------------------
Überprüft, ob Text im Zwischenspeicher liegt
}
procedure ClipboardChanged;
var
I: Integer;
Format: Word;
E: Boolean;
begin
E := False;
for I := 0 to Clipboard.FormatCount - 1 do
begin
Format := Clipboard.Formats[I];
if SendMessage(TextEnter.Handle, EM_CANPASTE, Format, 0) <> 0 then
begin
E := True;
Break;
end;
end;
Wenn E=True ist, dann ist Text im Zwischenspeicher, sonst nicht
mirage228
P.S.:
TextEnter ist bei mir ein TRichEdit (also sollteste bei dir was anderes hinschreiben
)
Du musst die
Unit "Clipbrd" einbinden, sonst gehts net