Cita:
Empezado por roman
Pues es que así lo tienes en la imagen que pusiste Si quieres sombrear todo entonces así:
Código Delphi [-]
Start := Pos('file:' + Edit.Text + '.exe', Memo.Text);
if Start > 0 then
begin
Memo.SelStart := Start;
Memo.SelLength := Length('file:' + Edit.Text + '.exe');
end;
// Saludos
|
bueno gracias por sus respuesta pero como les dije anterior mente quiero q seleccione todo no solo una parte les dejo mi codigo
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
hotkey:integer;
begin
hotkey:=Pos('https://www'+Edit1.Text+'.com.pe',memo1.Text);
if hotkey>0 then
Memo1.SelStart := hotkey;
Memo1.SelLength := Length('https://www'+Edit1.Text+'.com.pe');
Memo1.SetFocus;
end;
end.
else
begin
ShowMessage ('no se encontro nada');