| <DIV id=29><PRE>uses ClipBrd;
...
SomeStringData := Clipboard.AsText
uses ClipBrd;
...
if Clipboard.HasFormat(CF_TEXT) then
SomeStringData := Clipboard.AsText
else
ShowMessage(`No text in the Clipboard`);
procedure TForm1.Button2Click(Sender: TObj
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |