Edit2.SelStart := Edit2.SelLength ;
SendMessage(Edit2.Handle , EM_SETSEL, Edit2.SelStart-StrLen(StrRScan(PChar(Edit1.Text ),'/'))+1, -1);
例: | ![]() |
Edit2.SelStart := Edit2.SelLength ;
SendMessage(Edit2.Handle , EM_SETSEL, Edit2.SelStart-StrLen(StrRScan(PChar(Edit1.Text ),'/'))+1, -1);
例: | ![]() |