zinpub,
Наверное, надо включать эту механику при нажатом Shift и добавит интерфейс для контролов, что бы вставлялся не только в TEdit
А пока получилось так (Делфи7):
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.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
TEdit=class(StdCtrls.TEdit)
public
function FindNextEdit(CurrentEdit:TEdit):TEdit;
procedure PasteDelimetedText(List:TStringList);
procedure PasteText;
procedure WndProc(var Message: TMessage); override;
end;
...
function TEdit.FindNextEdit(CurrentEdit: TEdit): TEdit;
var
x:Integer;
begin
Result:=nil;
If Assigned(CurrentEdit) and Assigned(CurrentEdit.Parent) then
begin
for x:=CurrentEdit.ComponentIndex to CurrentEdit.Parent.ComponentCount-1 do
if (CurrentEdit.Parent.Components[x] is TEdit) and (CurrentEdit.Parent.Components[x]<>CurrentEdit) then
begin
Result:=CurrentEdit.Parent.Components[x] as TEdit;
Exit;
end;
end;
end;
procedure TEdit.PasteDelimetedText(List: TStringList);
var
X:Integer;
AEdit:TEdit;
begin
if List.Count>0 then
Text:=List[0];
if List.Count>=2 then
begin
AEdit:=Self;
for x:=1 to List.Count-1 do
begin
AEdit:=FindNextEdit(AEdit);
if Assigned(AEdit) then
AEdit.Text:=List[x];
end;
end;
end;
procedure TEdit.PasteText;
var
List:TStringList;
begin
List:=TStringList.Create;
try
List.Delimiter:=#8;
List.DelimitedText:=ClipBoard.AsText;
PasteDelimetedText(List);
finally
List.Free;
end;
end;
procedure TEdit.WndProc(var Message: TMessage);
begin
if (Message.Msg = WM_PASTE) then
PasteText
else
inherited;
end;
