ｿｽ@ ｿｽ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/04(ｿｽｿｽ) 02:00:20

ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
----------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  richedit2.Lines.Add(richedit1.Lines.Text);
  richedit1.Lines.Clear;
end;

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then Button1Click(Sender);
end;

----------------------------
form1ｿｽﾉゑｿｽRichEditｿｽｿｽ2ｿｽﾂゑｿｽButtonｿｽｿｽ1ｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽB
RichEdit1ｿｽﾌ難ｿｽeｿｽｿｽRichEdit2ｿｽﾉ追会ｿｽｿｽｿｽｿｽﾄ行ｿｽｿｽｿｽｿｽﾌなのでゑｿｽｿｽｿｽｿｽARichEdit1ｿｽｿｽｿｽEnterｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽARichEdit1ｿｽｿｽClearｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾍゑｿｽｿｽﾈのに、1ｿｽﾂ会ｿｽｿｽsｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
EnterｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽSｿｽｿｽRichEdit1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽARichEditｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽﾚにフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ@ｿｽARichEditｿｽﾌ最鯉ｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ轤ｦｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾋゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾓとゑｿｽｿｽﾏゑｿｽ 2005/03/04(ｿｽｿｽ) 03:11:21

Addｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ托ｿｽｿｽｿｽｿｽｿｽｿｽBｿｽKｿｽｿｽｿｽｿｽｿｽsｿｽｿｽIｿｽ}ｿｽPｿｽﾉ付ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ何ゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽIｿｽ}ｿｽPｿｽﾌ会ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

  // RｿｽsｿｽACｿｽｿｽﾚにキｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾚ難ｿｽ
  with RichEdit1 do
    SelStart := SendMessage(Handle, EM_LINEINDEX, R, 0) + C;

ｿｽﾝゑｿｽｿｽﾃゑｿｽ 2005/03/04(ｿｽｿｽ) 08:04:21

>EnterｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽSｿｽｿｽRichEdit1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
Button1Clickｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽｿｽAkey ｿｽｿｽNｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ 2005/03/04(ｿｽｿｽ) 15:24:20

ｿｽﾓとゑｿｽｿｽﾏらさｿｽｿｽAｿｽﾝゑｿｽｿｽﾃれさｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅ擾ｿｽｿｽﾉキｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽﾉは、
with RichEdit1 do
    SelStart := SendMessage(Handle, EM_LINEINDEX, 0, 0);
ｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽBｿｽB
>Button1Clickｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽｿｽAkey ｿｽｿｽNｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾅ鯉ｿｽﾉキｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ場合ｿｽARichEdit2ｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ行ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾌほゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽ驍ｽｿｽﾟなのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ^ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽB
ｿｽﾄ度ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽ閧ｨｿｽ閧ｨ 2005/03/04(ｿｽｿｽ) 16:45:21

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Length(richedit1.Text) = 0 then exit;
  richedit2.Lines.Add(richedit1.Lines.Text);
  richedit2.Lines.Delete(richedit2.Lines.Count-1);
  richedit2.Perform(EM_SCROLLCARET,0,0);
  richedit1.Lines.Clear;
end;

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then begin
    Button1Click(Sender);
    key := #0; // ｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽ
  end;
end;

// ｿｽLｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽｿｽ謫ｪｿｽﾉ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄスｿｽNｿｽｿｽｿｽ[ｿｽｿｽ
procedure TForm1.Button2Click(Sender: TObject);
begin
  richedit2.SelStart := 0;
  richedit2.Perform(EM_SCROLLCARET,0,0);
  richedit2.SetFocus;
end;

// ｿｽLｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽ末費ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄスｿｽNｿｽｿｽｿｽ[ｿｽｿｽ
procedure TForm1.Button3Click(Sender: TObject);
begin
  richedit2.SelStart := Length(richedit2.Text);
  richedit2.Perform(EM_SCROLLCARET,0,0);
  richedit2.SetFocus;
end;

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ 2005/03/04(ｿｽｿｽ) 18:55:12

ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾏ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.