|
ｿｽ@ｿｽｿｽForm1.ActiveControl.ｿｽ`ｿｽ`ｿｽ`ｿｽ@ｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽ 2005/03/28(ｿｽｿｽ) 14:02:00
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄｿｽｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽﾌテｿｽLｿｽXｿｽgｿｽGｿｽfｿｽBｿｽ^ｿｽｿｽｿｽうｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽoｿｽ[ｿｽﾌ「ｿｽﾒ集ｿｽvｿｽｿｽｿｽｿｽｿｽﾌ「ｿｽRｿｽsｿｽ[ｿｽvｿｽuｿｽ¥ｿｽｿｽtｿｽｿｽｿｽvｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ
procedure TForm1.mmnCopyClick(Sender: TObject);
begin
if Form1.ActiveControl.ClassName = 'TMemo' then
Form1.ActiveControl.CopyToClipboard;
end;
ｿｽﾆゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽwｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'CopyToClipboard'ｿｽxｿｽﾆ出ｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTMemoｿｽﾌゑｿｽｿｽﾃゑｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾇゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽﾕ趣ｿｽｿｽﾆゑｿｽｿｽｿｽ
procedure TForm1.mmnCopyClick(Sender: TObject);
begin
if Memo1.Focused = true then Memo1.CopyToClipboard;
if Memo2.Focused = true then Memo2.CopyToClipboard;
if Memo3.Focused = true then Memo3.CopyToClipboard;
if Memo4.Focused = true then Memo4.CopyToClipboard;
end;
ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽiｿｽ¥ｿｽｿｽtｿｽｿｽｿｽAｿｽJｿｽbｿｽgｿｽAｿｽ除ｿｽAｿｽｿｽ闥ｼｿｽｿｽｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽj
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽ 2005/03/28(ｿｽｿｽ) 14:18:47
ｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
procedure TForm1.mmnCopyClick(Sender: TObject);
begin
if ActiveControl.ClassName = 'TMemo' then
TMemo(ActiveControl).CopyToClipboard;
end;
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽ 2005/03/28(ｿｽｿｽ) 16:00:48
ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽAisｿｽｿｽｿｽZｿｽqｿｽｿｽgｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
procedure TForm1.mmnCopyClick(Sender: TObject);
begin
if ActiveControl is TMemo then
TMemo(ActiveControl).CopyToClipboard;
end;
ｿｽｿｽ 2005/03/28(ｿｽｿｽ) 16:05:32
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽさゑｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽﾚ的ｿｽﾇゑｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
