[Бушидо]

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

[Бушидо]

Все в теме...

[Decoding]

Код:

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

[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.