Parsi Coders
سورس بدست اوردن کلیپ برد ( دلفی ) - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس بدست اوردن کلیپ برد ( دلفی ) (/showthread.php?tid=2066)



سورس بدست اوردن کلیپ برد ( دلفی ) - Amin_Mansouri - 04-08-2012

نقل قول:{
Place Timage and Tmemo on the form.
Retrieve what is in the clipboard. If it is image, it will be placed in Image1, and if text - in Memo1.
}

uses Clipboard;
...

procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
begin
Clipboard.Open;
if Clipboard.HasFormat(CF_TEXT) then
begin
MyHandle:=Clipboard.GetAsHandle(CF_TEXT);
Memo1.Lines.Add(StrPas(GlobalLock(MyHandle)));
GlobalUnlock(MyHandle);
end;
if (Clipboard.HasFormat(CF_BITMAP)) or
(Clipboard.HasFormat(CF_PICTURE)) then
Image1.Picture.Assign(Clipboard);
Clipboard.Close;
end;



stromectol kaufen deutschland stromectol rezeptfrei kaufen online apotheke - sonusood - 10-08-2022

stromectol kaufen deutschland stromectol kaufen apotheke stromectol kaufen apotheke
stromectol rezeptfrei kaufen online apotheke stromectol kaufen apotheke stromectol tabletten kaufen rezeptfrei
stromectol kaufen ohne rezept stromectol kaufen apotheke stromectol kaufen apotheke
stromectol 6 mg kaufen stromectol kaufen apotheke stromectol kaufen österreich
stromectol 3 mg tabletten kaufen stromectol ohne rezept stromectol kaufen apotheke
stromectol kaufen österreich stromectol kaufen apotheke stromectol kaufen schweiz