Recebendo o valor de uma label ao clicar no TSPEEDBUTTON!
19/04/2018
0
Estou com um pequeno probleminha no momento em que estou clicando no botão(TSpeedButton), e tentando passar o valor de uma label que esta no outro form,
Exemplo: tenho meu form principal(frmPrincipal) e nele contem séries de Labels, e no form comanda(frmComanda), estou dizendo no código que segue abaixo.
with frmPrincipal do
begin
if (TSpeedButton(Sender) = btnMesa1) then
lblMesa.Caption := 'Mesa: 1' + label1.caption;
end;
Obrigado a todos que me ajudarem e vamos nessa comunidade DevMedia.
Yuri Menechelli
Post mais votado
19/04/2018
verifica se da certo.
Alexandre Galdino
Mais Posts
19/04/2018
Yuri Menechelli
23/04/2018
Yuri Menechelli
agora estou fazendo uns testes aqui até que deu meio certo, mas de principio quando clico no botão no primeiro show do form2 ele não aparece, mas, quando fecho o form2 e clico novamente no botão ai ele aparece.
segue o código dos testes que estou fazendo, realmente estou penando por uma coisa que deve ser bem simples.
Obrigado a todos que me ajudam e também passam vosso conhecimento pra todos.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.ExtCtrls, Vcl.StdCtrls, contnrs;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Bevel1: TBevel;
Label1: TLabel;
SpeedButton2: TSpeedButton;
Label2: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure Clicando(Sender: TObject);
procedure Clicando2(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
ListaEdit : TObjectList;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Unit2;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form2.ShowModal;
Clicando(SpeedButton1);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Form2.ShowModal;
Clicando2(SpeedButton2);
end;
procedure TForm1.Clicando(Sender: TObject);
begin
SpeedButton1.Tag := 0;
if(TSpeedButton(Sender).Tag = 0)then
Form2.label1.caption := 'Mesa: '+Label1.Caption;
//TEdit(ListaEdit.Items[TspeedButton(Sender).Tag]).Text := 'Mesa: '+ Label1.Caption;
//TEdit(ListaEdit.Items[TspeedButton(Sender).Tag]).Text := 'Mesa: '+ Label2.Caption;
end;
procedure TForm1.Clicando2(Sender: TObject);
begin
SpeedButton2.Tag := 1;
if (TSpeedButton(Sender).Tag = 1) then
Form2.label1.caption := 'Mesa: '+Label2.Caption;
end;
end.
24/04/2018
Rose
http://raze3.co/
05/08/2018
Ariana
<a href="http://geometry-dash.online/geometry-dash-extra">Geometry Dash Extra</a>
17/04/2019
Alice
http://mutilateadoll2.top
17/04/2019
Phamyen
http://mylittleponygames.games
Clique aqui para fazer login e interagir na Comunidade :)