Текущий архив: 2006.07.23;
Скачать: CL | DM;

Вниз

Как копировать в буфер обмена из Edit   Найти похожие ветки 

← →
pound ©   (2006-06-08 19:50) [0]

Подскажите, как копировать, вставлять из буфера обмена в редактор Edit горячими клавишами, точнее как создать событие по нажатию горячих клавиш, чтобы можно было работать с буфером обмена.
 Заранее благодарю. Андрей.

---

← →
GanibalLector ©   (2006-06-08 22:59) [1]

uses ClipBrd и вперед. Можно и на Api см. Clipboard Functions+F1

---

← →
Юрий Зотов ©   (2006-06-08 23:01) [2]

> pound ©   (08.06.06 19:50)

Самый лучший способ - не делать ничего. Edit и сам по себе уже умеет работать с буфером обмена. Если ему не мешать, конечно.

---

← →
tButton ©   (2006-06-09 08:57) [3]

> Edit и сам по себе уже умеет работать с буфером обмена.

типа... edit1.CopyToClipboard, PasteFromClipboard, CutToClipboard
или их по другому зовут?

---

← →
Handle   (2006-06-09 10:44) [4]

private
   procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not RegisterHotkey(Handle, 1, MOD_ALT, VK_F9) then
 ShowMessage("Unable to assign Alt-Shift-F9 as hotkey.");
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotkey( Handle, 1 );
end;

procedure TForm1.WMHotkey( var msg: TWMHotkey );
begin
 if msg.hotkey = 1 then
 begin
  SendMessage(Edit1.Handle, WM_PASTE, 0, 0);
 end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.038 c