Recebendo o valor de uma label ao clicar no TSPEEDBUTTON!

19/04/2018

0

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.
Yuri Menechelli

Yuri Menechelli

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.

Alexandre Galdino

Alexandre Galdino
Responder

Mais Posts

19/04/2018

Yuri Menechelli

só lembrando que este código que esta logo após a duvida, esta no OnShow do frmComanda.
Responder

19/04/2018

Yuri Menechelli

Alguém pra me ajudar, por favor?
Responder

19/04/2018

Yuri Menechelli

Mas eu não estou usando menu
Responder

20/04/2018

Yuri Menechelli

Alguém pra me ajudar com esta pergunta por favor?
Responder

23/04/2018

Yuri Menechelli

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

23/04/2018

Yuri Menechelli

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar