traslado de informacion entre form

[rogercito]

muchas gracias por las ayuda
ahora biem cuando implemento el segundo codigo que me envieron
no se ve reflejado en los edit del form1 la informacion ....
gracias

[rogercito]

tengo que asociar los edit del form1 con algo mas ?? no entiendo

[ecfisa]

ahora biem cuando implemento el segundo codigo que me envieron
no se ve reflejado en los edit del form1 la informacion .

Hola rogercito.

No sé cual de las tres propuestas estás usando, pero si es la que utiliza mensajes, con seguridad no has cambiado el nombre del form receptor 'Form1' por el que le pusiste a tu form y por lo tanto la función FindWindow no encuentra la ventana correspondiente.

Código Delphi [-]
  SendMessage(FindWindow(nil, 'Nombre_De_Tu_Form'), WM_USER+300, 0, DWORD(PChar(Salida)));

Un saludo.

[rogercito]

Código Delphi [-]
unit Unit23;
nterface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, DBCtrls, StdCtrls, Mask;
type
  TForm23 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource1: TDataSource;
    Table1: TTable;
    DBLookupComboBox2: TDBLookupComboBox;
    DataSource2: TDataSource;
    Table2: TTable;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Button3: TButton;
    DataSource3: TDataSource;
    Table3: TTable;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure MsgHoraSalida(var Msg: TMessage); message WM_USER + 300;
    procedure MsgHoraLlegada(var Msg: TMessage); message WM_USER + 301;
    { Private declarations }
  public
  end;
var
  Form23: TForm23;

implementation{$R *.DFM}

uses Unit24, Unit25;

procedure TForm23.FormCreate(Sender: TObject);
begin
  table1.active:=true;
  table2.active:=true;
  button2.visible:=false
end;

procedure TForm23.Button1Click(Sender: TObject);
begin
  if (dblookupcombobox2.keyvalue) = 4 then
  begin
    form24.show
  end
  else
  if  (dblookupcombobox2.keyvalue) = 2 then
  begin
    form25.show
  end
  else
    showmessage('no existen localidades intermedias');
end;

procedure TForm23.Button3Click(Sender: TObject);
begin
  button2.visible:=true
end;

procedure TForm23.MsgHoraSalida(var Msg: TMessage);
begin
  Edit1.Text:= PChar(Msg.LParam);
end;

procedure TForm23.MsgHoraLlegada(var Msg: TMessage);
begin
  Edit2.Text:= PChar(Msg.LParam);
end;

end.

[rogercito]

eso es lo que utilizo en el primer form y lo que utilizo en el segundo form es es :

Código Delphi [-]
unit Unit24;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm24 = class(TForm)
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  form24:tform24;

implementation

uses Unit23; {$R *.DFM}

procedure TForm24.FormCreate(Sender: TObject);
begin
  label5.visible:=false;
end;

procedure TForm24.RadioButton1Click(Sender: TObject);
var
  Salida,LLegada: string;
begin

  Salida:= '15:03:00';      // o convertir: TimeToStr(tu_hora_salida);...
  LLegada:= '15:30:12';
  SendMessage(FindWindow(nil, 'Form23'), WM_USER+300, 0, DWORD(PChar(Salida)));
  SendMessage(FindWindow(nil, 'Form23'), WM_USER+301, 0, DWORD(PChar(LLegada)));
  label5.visible:=true;
  //label8.visible:=true;
end;

procedure TForm24.RadioButton2Click(Sender: TObject);
begin
  label6.visible:=true;
  //label9.visible:=true;
end;

procedure TForm24.Button1Click(Sender: TObject);
begin
  form23.show;
end;

end.

[rogercito]

no me aparece nada en el form 1 , en los edit

[ecfisa]

Hola rogercito.

Dame unos minutos para arreglar la presentación de tus mensajes y lo voy a revisar.

Cuando utilizes código Delphi Solamente utilizá las etiquetas [delphi] [/delphi] , no es necesario el uso de LIST

Un saludo.

[rogercito]

muchas graias ....lo agradezco

[ecfisa]

Hola de nuevo.

En apariencia no veo nada fuera de lo normal...

Te adjunto un demo funcionando, con los dos forms llamados como los tuyos (Form23 y Form24), para que puedas cotejarlo con tu código.
Al segundo form lo creo no modal para que se puedas acomodarlos y apreciar los cambios en el momento del click sobre el TRadioButton.

Un saludo