|
ｿｽ@ｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽmｿｽｿｽﾉゑｿｽ
|
ｿｽ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
ｿｽfｿｽｿｽｿｽfｿｽｿｽ 2006/08/24(ｿｽｿｽ) 09:29:08
ｿｽｿｽｿｽﾌ関撰ｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽmｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽH
procedure TRoiSetForm.RadioGroup1Click(Sender: TObject);
begin
if Sender ｿｽｿｽ BitBtn1 then (ｿｽｿｽｿｽｿｽ)
end;
ｿｽﾌようｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽBitBtn1ｿｽﾍ会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆ費ｿｽｿｽfｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
BitBtn1ClickｿｽｿｽﾅフｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽH 2006/08/24(ｿｽｿｽ) 10:09:47
ｿｽtｿｽｿｽｿｽOｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇ、ｿｽﾟゑｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ...
procedure TForm1.BitBtn1Click(Sender: TObject);
var
event: TNotifyEvent;
begin
event:= RadioGroup1.OnClick;
RadioGroup1.OnClick := nil;
RadioGroup1.ItemIndex := 1;
RadioGroup1Click(Sender{or BitBtn1})
RadioGroup1.OnClick := event;
end;
ｿｽuｿｽ}ｿｽEｿｽXｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽ}ｿｽEｿｽXｿｽNｿｽｿｽｿｽbｿｽNｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは擾ｿｽｿｽｿｽｿｽﾄるしｿｽA
ｿｽXｿｽyｿｽ[ｿｽXｿｽLｿｽ[ｿｽｿｽGｿｽｿｽｿｽ^ｿｽ[ｿｽLｿｽ[ｿｽﾅゑｿｽNｿｽｿｽｿｽbｿｽNｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽしｿｽｿｽｿｽﾌでは？ｿｽH
ｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽﾌで、ｿｽﾈ単ｿｽﾉ追跡でゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ欲ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽfｿｽｿｽｿｽfｿｽｿｽ 2006/08/24(ｿｽｿｽ) 11:35:45
ｿｽｿｽHｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽ}ｿｽEｿｽXｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ難しｿｽｿｽｿｽﾌでゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽﾍフｿｽｿｽｿｽOｿｽｿｽgｿｽpｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽｿｽH 2006/08/25(ｿｽｿｽ) 11:49:50
ｿｽxｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ一言
ｿｽ}ｿｽEｿｽXｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽ閧ｶｿｽｿｽﾈゑｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽｿｽTButton,TBitBtnｿｽﾅゑｿｽｿｽｿｽﾎ、
ActiveControlｿｽﾅ費ｿｽｿｽfｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
if ActiveControl ｿｽｿｽ BitBtn1 then (ｿｽｿｽｿｽｿｽ)
