Série da semana: Primeiros passos no Angular

Veja mais

Recebendo o valor de uma label ao clicar no TSPEEDBUTTON!

19/04/2018

6

Boa Noite Pessoal, estou aqui mais uma vez em comunicando e pedindo ajuda pra todos desta comunidade maravilhosa da DevMedia.
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.
Responder

Post mais votado

19/04/2018

Amigo crie algumas variaveis string no menu e no active do menu vc testa se tem informação nelas se tiver vc carrega os seus campos
verifica se da certo.
Responder

Mais Posts

só lembrando que este código que esta logo após a duvida, esta no OnShow do frmComanda.
Responder
Alguém pra me ajudar, por favor?
Responder
Mas eu não estou usando menu
Responder
Alguém pra me ajudar com esta pergunta por favor?
Responder
Mais alguém por favor, pra me ajudar?

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.
Responder
Tópico Resolvido, consegui resolver.
Responder

24/04/2018

Rose

You’ve written nice post, I am gonna bookmark this page, thanks for info. I actually appreciate your own position and I will be sure to come back here.
http://raze3.co/
Responder

05/08/2018

Ariana

wonderful!!! I have the same as your think
<a href="http://geometry-dash.online/geometry-dash-extra">Geometry Dash Extra</a>
Responder

17/04/2019

Alice

Adoro todas as postagens, gostei muito, gostaria de mais informações sobre isso, pois é muito legal. Obrigado por compartilhar.

http://mutilateadoll2.top
Responder

17/04/2019

Phamyen

Adorei o jeito que vc discute o topico otimo trabalho obrigado pela compartilha Seu informativo post.Thanx por compartilhar essa post útil continuar assim
http://mylittleponygames.games
Responder

17/04/2019

Ariana

Obrigado por postar um ótimo artigo!
http://raze3.co
Responder