|
ｿｽ@ｿｽｿｽButtonｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ體ｮｿｽｿｽｿｽ1ｿｽxｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾉは？
|
ｿｽ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
ciel 2005/08/10(ｿｽｿｽ) 17:40:11
ButtonｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽMemoEditｿｽﾉデｿｽ[ｿｽ^ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄ、1ｿｽxｿｽﾇ会ｿｽｿｽｿｽｿｽ黷ｽｿｽ轤ｻｿｽｿｽﾈ擾ｿｽﾇ会ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBButtonｿｽﾉは【procedure TForm1.Button1Click(Sender: TObject);
var
E1,E2 : Integer;
i : Integer;
begin
if (TValEdit1.Text ='') or (TValEdit2.Text ='') then
begin
ShowMessage('ｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ');
if TValEdit1.Text ='' then
TValEdit1.SetFocus
else
TValEdit2.SetFocus;
end
else
begin
E1 := StrToInt(TValEdit1.Text);
E2 := StrToInt(TValEdit2.Text);
for i := E1 to E2 do
MemoEdit1.Lines.Add(IntToStr(i)) ;
MemoEdit1.Lines.Add('ｿｽIｿｽｿｽ');
end;ｿｽz
ｿｽｿｽｿｽLｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾜゑｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽけｿｽoｿｽｿｽ 2005/08/10(ｿｽｿｽ) 18:11:57
ｿｽﾍゑｿｽｿｽﾟての回答ゑｿｽｿｽｿｽOｿｽO
Button1.Enabled:= false;
{ｿｽｿｽｿｽｿｽ}
Button1.Enabled:= true;
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇね。
ｿｽｿｽｿｽSｿｽﾒ難ｿｽｿｽmｿｽAｿｽｿｽｿｽがゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽけｿｽoｿｽｿｽ 2005/08/10(ｿｽｿｽ) 18:13:33
ｿｽ鼾ｿｽﾉゑｿｽｿｽｿｽﾄは、
{ｿｽｿｽｿｽｿｽ}
Application.ProcessMessages;
Button1.Enabled:= true;
ｿｽﾆゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/08/10(ｿｽｿｽ) 20:17:59
ｿｽｿｽxｿｽﾇ会ｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽxｿｽﾆ会ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、
Button1.OnClick := nil;
ｿｽﾅゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、
Button1.OnClick := Button1Click;
ｿｽﾆゑｿｽｿｽｿｽﾎ鯉ｿｽｿｽﾉ戻ゑｿｽｿｽﾜゑｿｽｿｽB
ciel 2005/08/12(ｿｽｿｽ) 11:17:32
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾄみまゑｿｽｿｽB
