[Dúvida] como copiar o trecho selecionado

[Leonardodag 2]

bom dia eu queria saber como eu posso copiar o trecho que eu selecionar, aonde quer que esteja(no caso, edit1, edit2 e edit3).

eu sei que edit1.copytoclipboard copia o que estiver no edit1 mas como eu faco ele copiar o trecho SELECIONADO em QUALQUER UM dos edits?

[tekitos123 3]

creio q vc queria algo mais ou menos assim

var

texto : string;

i : integer;

begin

for i := 0 to ComponentCount -1 do begin

if (Components is TEdit) then begin

if (Components as TEdit ).SelText <> '' then begin

texto := (Components as TEdit).SelText;

Clipboard.AsText := texto;

end;

end;

end;

end;

adicione a uses

ClipBrd;

[Leonardodag 2]

ta dando um erro aqui, e assim: For loop control variable must be simple contro variable.

mas por algum motivo ele ta compilando, e eu uso o botao q tem essa funcao e ele copia o.O

 

mas agora como eu faco para ele recortar, e colar tambem (do mesmo jeito, em qualquer edit, apagando a parte selecionada quando recorta/cola)

 

ta cansado de responder minhas perguntas? ve o lado bom, a cada resposta vc ganha um thanks :D

[tekitos123 3]

ta meio pog mas funciona

var

texto , str2 : string;

i , strlen : integer;

begin

for i := 0 to ComponentCount -1 do begin

if (Components is TEdit) then begin

if (Components as TEdit ).SelText <> '' then begin

texto := (Components as TEdit).SelText;

Clipboard.AsText := texto;

strlen := Length(texto);

str2 := (Components as TEdit).Text;

Delete(str2 , 1 , strlen);

(Components as TEdit).Text := str2;

end;

end;

end;

end;

[Leonardodag 2]

pelo que eu entendi, esse e o recortar. sem querer abusar, mas ja abusando, e o colar?

 

e ainda: como eu faco uma opcao para a janela se manter em cima das outras?

[tekitos123 3]

colar aonde??

 

 

para ficar sobre as outras janelas é só mudar

a propriedade FormStyle do form para fsStayOnTop

[Leonardodag 2]

aonde? no TEdit ativo, seja qual for ^^

e obrigado pela resposta

[tekitos123 3]

aonde? no TEdit ativo, seja qual for ^^

e obrigado pela resposta

var

texto , str2 : string;

i , strlen : integer;

begin

for i := 0 to ComponentCount -1 do begin

if (Components is TEdit) then begin

if (Components as TEdit ).SelText <> '' then begin

texto := (Components as TEdit).SelText;

Clipboard.AsText := texto;

strlen := Length(texto);

str2 := (Components as TEdit).Text;

Delete(str2 , 1 , strlen);

(Components as TEdit).Text := str2;

EditReceb.Text := texto; //copia para o EditReceb

end;

end;

end;

end;

isso??

eu acho melhor vc adicionar em um memo

[Leonardodag 2]

eh isso mesmo, mas se eu botar em um memo fica mais facil o comando mas nao vai dar para fazer o q eu quero. mesmo assim funcionou certinho =D

[CheaterMX 11]

Se foor possível tu poe ai a Foto da FORM, que agente deixa mais ou menos o Código do seu programa aqui

 

Abraços,

CheaterMX

[Leonardodag 2]

deixar a foto do form pra me dar o codigo pronto? q nada kra eu quero aprender!!