procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Edit1.Text = '23' then
begin
Edit1.SetFocus;
Edit1.SelectAll;
end;
Edit1.Text:='23' 일때 '23' 값을 마우스로 블럭선택한 것처럼 효과를 주는 방법이 있을텐데 아시는 분 부탁드립니다. Edit1.SetFocus; Edit1.SelectAll; 이렇게 했는데..... '2'에만 블럭효과가 나타납니다... 달리 방법이 없을까요?
블랙레인
•
2009.02.27 23:21
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if...
박종철
•
2009.02.28 01:15
Edit1.SetFocus;
Edit1.SelStart := 0;
Edit1.SelectAll;
한번 해보세요~
Shift: TShiftState);
begin
if Edit1.Text = '23' then
begin
Edit1.SetFocus;
Edit1.SelectAll;
end;
end;
엔터 칠때마다 효과 줍니다