Цитата:
...
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;
...
|
извините ламера( но я непонял( Мне нужно чтобы автоматически текст из буфера обмена кидался в поле ввода. А не привязывать функцию на какоето действие(