우와
(오철희)
|
|
procedure TFmMain.Edit1Change(Sender: TObject);
begin
if Pos( Edit1.Text, '' ) > 0 then
begin
Edit1.Text := StringReplace( Edit1.Text, '', '', [rfReplaceAll] );
end;
end;
해당 이벤트를 하나 더 걸어서 강제(?)로 처리는 했는데, 다른 방법 있으시면 조언 해주세요~
2017-08-18 오후 5:30:33
|
|
