Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal! Tenho uma duvida muito grande e não encontrei a solução em nenhum lugar na internet. Eu ainda não cheguei nesta etapa no meu curso de Delphi, mas gosto sempre de estar a frente do conteúdo do curso, assim fica mais fácil. Bom, eu tenho um Project no Delphi com o Form1(Unit1), Form2(Unit2) e Form3(Unit3). Todos estão interligados através do comando implementation. No Form2(Unit2) existem 5 TEdits, essas TEdits irão receber strings que, quando o usuário clicar no botão "Cadastrar" esses dados seriam enviados aos ListBox1, ListBox2 e ListBox3 que estão todos localizados no Form3(Unit3). Teria como eu fazer isso?
Form2(Unit2):
implementation
uses Ulogin, Uconsulta, Ulogin;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
produto, cod, preco, validade:string;
begin
produto:=edit1.Text;
cod:=edit2.Text;
preco:=edit3.Text;
validade:=edit5.Text;
end;
procedure TForm2.Button2Click(Sender: TObject);form3.ShowModal;
end;
procedure TForm2.Button3Click(Sender: TObject);Form3(Unit3):
implementation
uses Ulogin, Uconsulta, Ulogin;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
form3.Close;
end;
procedure TForm3.Button2Click(Sender: TObject);Listbox1.DeleteSelected;
Listbox2.DeleteSelected;
Listbox3.DeleteSelected;
end;
end;Carregando comentários...