Memo1에서 글자를 입력하고 영역을 선택하면 Button1이 Enabled 되고
Button1을 누르면 선택내용이 Memo2에 추가됩니다.
procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Memo1.SelLength>0 then Button1.Enabled:=True
else Button1.Enabled:=False;
end;
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Memo1.SelLength>0 then Button1.Enabled:=True
else Button1.Enabled:=False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.lines.add(memo1.SelText);
end;
Memo1에서 글자를 입력하고 영역을 선택하면 Button1이 Enabled 되고
Button1을 누르면 선택내용이 Memo2에 추가됩니다.
procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Memo1.SelLength>0 then Button1.Enabled:=True
else Button1.Enabled:=False;
end;
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Memo1.SelLength>0 then Button1.Enabled:=True
else Button1.Enabled:=False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.lines.add(memo1.SelText);
end;