Escribir en diferentes edits a la vez

[creus]

Hola a todos,

Necesito saber si hay manera de poder escribir en varios edits a la vez. Si hay alguna instrucción que englobe a todos los edits que hay en una aplicación??

Gracias por la ayuda

[marcoszorrilla]

Supongo que quieres decir del formulario activo. Una idea puede ser que se escriba en un Tedit al efecto y en el evento OnChange por ejemplo se actualicen los demás con el contenido de éste.

Un Saludo.

[marcoszorrilla]

Te añado un pequeño ejemplo que acabo de probar:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
var
i:Integer;
begin
For i:=1 to form1.ComponentCount -1 do
begin
if Components[i].ClassType = Tedit then
begin
(Components[i] As Tedit).text:=Edit1.Text;
end;
end;

end;

end.

Un Saludo.

[creus]

A lo mejor no me he explicado bien.

Tengo 10 edits diferentes donde poner diferentes datos, de diferentes operaciones, y un Panel con una sola calculadora.

Cada vez que escojo una operación quiero poder escribir en el Edit de la operación correspondiente, y solo en ese.

No se si hay alguna manera que me deja escribir en el Edit que en aquel momento este Visible.

No se si ahora ha quedado más claro.

Gracias

[marcoszorrilla]

Supongo que a la calculadora le llamas desde el Edit que corresponda, en ese caso si tienes en cuenta el "Sender", no tienes más que devolverle el resultado a él mismo.

Añado un truco más sencillo utilizar la propiedad Tag de estos controles, de esta manera sabiendo quién es cada uno mediante una estructura Case podemos devolver el dato a quien corresponda.

Un Saludo.