Tengo un Form creado en ejecución con varios componentes, entre ellos un TComboBox, unTEdit y un TButton. Quiero que el botón seleccione un elemento del Combo y lo pase al TEdit.
Si puedo acceder al botón, pero no consigo acceder al dato del Combo y pasarlo al TEdit.
Código Delphi
[-]
procedure TForm1.Btn_TemaClick( Sender: TObject);
begin
With Sender as TButton do begin
Caption := 'Primer Item';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
FModal: TForm;
EditA, Edt_Tema : TEdit;
Boton, Btn_Tema: TButton;
CBox : TComboBox;
UD : TUpDown;
Lbl : TLabel;
Val : Integer;
begin
TRY
..............................
With Btn_Tema do
begin
Caption:= 'Pasar Tema';
Font.Size:= 11;
Width:= 170; Height:= 40;
Left:=Trunc( (FModal.Width - Boton.Width) div 2 ) + 130 ; Top:= 90;
Parent:= FModal;
onClick := Form1.Btn_TemaClick; Default:=True; end;
FINALLY
fModal.Free;
END;
end;
end.
Saludos.
bulc