[Бушидо]

Как из буфера обмена автоматом вставлять строку в поле Input? Диной не более 20-ти символов.

[Бушидо]

Все в теме...

[Decoding]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

<b>function</b> GetClipboardText(Wnd: HWND; var Str: <b>string</b>): Boolean; <b>var</b>   hData: HGlobal; <b>begin</b>   Result := True;   <b>if</b> OpenClipboard(Wnd) <b>then</b>   <b>begin</b>     <b>try</b>       hData := GetClipboardData(CF_TEXT);       <b>if</b> hData <> <font color="royalblue">0</font> <b>then</b>       <b>begin</b>         <b>try</b>           SetString(Str, PChar(GlobalLock(hData)), GlobalSize(hData));         <b>finally</b>           GlobalUnlock(hData);         <b>end</b>;       <b>end</b> <b>     else</b>         Result := False;       Str := PChar(@Str[<font color="royalblue">1</font>]);     <b>finally</b>       CloseClipboard;     <b>end</b>;   <b>end</b>   <b>else</b>     Result := False; <b>end</b>;    Пример использования: <b>function</b> TForm1.Button2Click(Sender: TObject) <b>var</b>   Str: <b>string</b>; <b>begin</b>   GetClipboardText(Handle, Str);   ShowMessage(Str); <b>end</b>;

[Decoding]

http://www.delphisources.ru/forum/sh...ted=1#post3859

[Бушидо]

...
for i := 0 to 4 do //Создание полей ввода
begin
Inputs[i] := TEdit.Create(self);
Inputs[i].Parent := GroupBox1;
Inputs[i].PopupMenu := PopupMenu2;
Inputs[i].OnContextPopup := MyEditPopup;
Inputs[i].Tag := i;
end;
...

извините ламера( но я непонял( Мне нужно чтобы автоматически текст из буфера обмена кидался в поле ввода. А не привязывать функцию на какоето действие(

[Decoding]

Так к действию и ненадо привязываться, надо привязываться к событию… К изменению содержимого буфера обмена - http://decoding.narod.ru/download/co...clipboard.html.