Hola, estoy teniendo un problema a la hora de hacer referencia al comboBox de un formulario desde otro formulario, me tiene descolocado por que haciendo la llamada por ejemplo del formulario "a cerca de..." funciona bien, pero me da error si llamo al componente antes citado de otro formulario. Pongo el código y lo explico mejor.
Código Delphi
[-]
unit editor;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ExtCtrls, ShellApi,
Vcl.ComCtrls;
type
TbEditor = class(TForm)
menu: TMainMenu;
Archivo1: TMenuItem;
Guardar1: TMenuItem;
Salir1: TMenuItem;
Informacin1: TMenuItem;
Acercade1: TMenuItem;
Panel2: TPanel;
Label1: TLabel;
Edit1: TEdit;
Abrir1: TMenuItem;
memo1: TRichEdit;
procedure Salir1Click(Sender: TObject);
procedure Guardar1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Abrir1Click(Sender: TObject);
procedure Acercade1Click(Sender: TObject);
procedure memo1Change(Sender: TObject);
private
public
end;
var
bEditor: TbEditor;
implementation
{$R *.dfm}
uses BNote, about;
procedure TbEditor.Acercade1Click(Sender: TObject);
begin
aboutFRM.ShowModal
end;
procedure TbEditor.Guardar1Click(Sender: TObject);
var
listado: tStringList;
begin
listado:= tStringList.Create;
bNotas.lista.items.add(edit1.Text);
if memo1.Text <> '' then
begin
bNotas.editor.Lines.Add((chr(13))+edit1.Text+(chr(13))+memo1.Text+
chr(13)+'________________________________________'+(chr(13)));
try
listado.Add(edit1.Text);
listado.SaveToFile('entradas.text');
finally
FreeAndNil(listado);
end;
end;
end;
...
La llamada la intento hacer desde el formulario "editor", por otra parte la unidad "bNote" contiene un formulario llamado "bNotas" y este a su vez un comboBox llamado "lista", al hacer clic sobre "guardar" del menú (del formulario editor), supuestamente realiza una llamada a la unidad bNote, a su formulario (bNotas) y a su control comboBox (lista).
De igual modo, se hace la llamada al formulario "acerca de...." que se encuentra dentro de la unidad "about" y en este caso no hay problema.
¿por qué si he declarado la unidad "bNote" delphi me tira un error diciendo que no está declarado el identificador "lista" cuando si está declarado en el uses
(
)?
No soy ningún experto en delphi, pero nunca he tenido problema para hacer llamadas a componentes de segundos formularios y me tiene descolocado. Lo curioso es que antes funcionaba, y el unico cambio que he realizado, ha sido implementar el código que ecfisa me sugirió en este
otro hilo), pero tampoco tiene que ver una cosa con otra, así que no entiendo por que antes la llamada funcionaba y ahora no.
Saludos y gracias de antemano.