Entwickler-Ecke
Sonstiges (Delphi) - Zwischenablage
Cyberbob - Di 02.07.02 20:59
Titel: Zwischenablage
HI ihr,
ich möchte in mein Programm einen Befehl einfügen um den gesamten Text im Memofeld in die Zwischenablage zu kopieren, doch wie lautet der? Danke
Nic :roll: las
Klabautermann - Di 02.07.02 21:09
Hallo,
die Online-Hilfe währe mal wieder schneller gewesen. Versuche mal:
Quelltext
1:
2:
| Memo1.SelectAll;
Memo1.CopyToClipboard; |
Gruß
Klabautermann
mathias - Di 02.07.02 22:14
| Klabautermann hat folgendes geschrieben: |
|
Das ist wieder einmal eine typische Erleichterung von Delphi.
So sieht das etwa mit API-Funktionen aus.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| procedure CopyToClipboard(s : String);
var
hMem : cardinal;
sCopyData : string;
pMem : PChar;
begin
if not OpenClipboard(0) then exit;
try
if not EmptyClipboard then exit;
sCopyData := s; // s = Memo1.Text;
hMem := GlobalAlloc(GMEM_MOVEABLE,Length(sCopyData) + 1);
if hMem = 0 then exit;
pMem := GlobalLock(hMem);
try
CopyMemory(pMem,PChar(sCopyData),Length(sCopyData) + 1);
finally
GlobalUnlock(hMem);
end;
SetClipboardData(CF_TEXT,hMem);
finally
CloseClipboard;
end;
end; |
:lol:
Klabautermann - Di 02.07.02 22:19
Genau deshalb verwende ich Delphi.
Wen nich API-Programmieren wollte täte ich das in C(++).
Gruß
Klabautermann
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!