[DELPHI] Kopiowanie do schowka

0

Mam problem.
Jak skopiować text z EDITA do schowka w Windowsie XP.

Samo Edit1.CopyToClibboard niedziała.
Musi byc tekst zaznaczony, dopiero skopiuje.

Czyli jak zaznaczyć tekst w EDICIE????

Edit1.SellectAll nie działa.

No chyba że tylko u mnie.

0

TEdit -&gt SelLength
TEdit -&gt SelStart

  • F1 i wszystko jasne
0

No i niedziała.

Pisze taki kodzik w OnClick w Buttonie :

Edit.SelLength;
Edit.SelText;
Edit.CopyToClipboard;

I nie działa.

Co teraz???????

0

Luki napisał:
No i niedziała.

Tak zadziala

Edit.SelStart:=0
Edit.SelLength:=Length(Edit.Text);

Edit.CopyToClipboard;

A szybciej i ladniej bedzie

Edit.SelectAll;
Edit.CopyToClipboard;--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

OKI

Dzięki pq teraz działa.

{brawo} {brawo} {brawo}

0

A wiecie jak <ort>skopjować </ort>wybraną pozycję z TListBox?

// słownik!!! - Ł

0

Wiemy, nekrofilu.

2

Co ludzie widzą fajnego w odkopywaniu starych tematów.
A ja, jakiś string do Schowka - kopiuje w ten oto sposób:

procedure TMainForm.CopyTextToClipBoard(TextToCopy : string);
var
  ClipBoardH : HGLOBAL;
begin
  OpenClipboard(0);
  EmptyClipboard;
  ClipBoardH := GlobalAlloc(GMEM_MOVEABLE and GMEM_DDESHARE, Length(TextToCopy) + 1);
  StrCopy(GlobalLock(ClipBoardH), PChar(TextToCopy));
  GlobalUnlock(ClipBoardH);
  SetClipboardData(CF_TEXT, ClipBoardH);
  CloseClipboard;
end;
1

ktoś mi powie po co ta kombinatoryka?

uses
  Clipbrd;
...

Clipboard.AsText := 'text';
...
sStr := Clipboard.AsText;

1

zajcev: ja Tobie odpowiem, po to taka kombinatoryka, aby można było napisać
program w czystym WinAPI i to bez zbędnego dodawania innych modułów :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1