Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 10-10-2021
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 646
Poder: 23
mRoman Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola.

Podrías hacer:
Código Delphi [-]
...
var
  bt: TBitBtn;
begin
  OtroForm := TOtroForm.Create(Self);
  OtroForm.Show;

  // NombreDelBoton(TBitBtn) fue creado dinámicamente en OtroForm en este punto

  bt := TBitBtn(OtroForm.FindComponent('NombreDelBoton'));
  if Assigned(bt) then
    bt.Caption := 'New Caption';

  ...
end;

Saludos
Hola Daniel, gracias por contestar.

Ahora q leo tu código ya me da un mejor panorama por donde ir.
Con este código creo los botones...
Código Delphi [-]
procedure TfrmCambiarMesa.FormShow(Sender: TObject);
var
    PosY: Integer;
    nLeft:Integer;
begin
//    edMesaActual.Text:=frmRegComanda.Edit1.Text;
    Label3.Caption:=frmRegComanda.Edit1.Text;
    BitBtn1.Enabled:=False;
    qryMesas.Close;
    qryMesas.Open;
    qryMesas.First;

    while ScrollBox1.ControlCount > 0 do
        ScrollBox1.Controls[0].Free;

     PosY:=8;
     nLeft:=8;
     n:=1;

     if not(qryMesas.IsEmpty) then
     begin
         While not qryMesas.Eof do
         begin
            BtnsMesas[n]:=TBitBtn.Create(Self);
            with BtnsMesas[n] do
            begin
                Caption:=qryMesas.FieldByName('MESA_NUM').AsString;
                Parent:=ScrollBox1;
                Height:=100;
                Top:=PosY;
                Left:=nLeft;
                if nLeft=508 then begin //200
                   nLeft:=8;
                   PosY:=PosY+Height+5
                end Else Begin
                   nLeft:=nLeft+100;
                end;
                Width:=100;
                OnClick:=OnButtonClick1;
                Font.Size:=12;
                Tag:=qryMesas.FieldByName('MESA_NUM').AsInteger;
                Font.Style:=[fsBold];
                Layout:=blGlyphTop;
                Glyph:=Image2.Picture.Bitmap;
            end;
            qryMesas.Next;
            inc(n);
         end;
    end;
end;

En este codigo no uso la propiedad "Name" del boton, la usaré para crearle un nombre y asi poder acceder a su caption, siguiendo el código q me enviaste.

Lo aplico en cuanto pueda y les comento como me fue.

Saludos y gracias por tu tiempo.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
hacer parpadear el caption de un botón albelg Varios 5 11-06-2015 23:32:02
Cambiar el caption de un boton segun su nombre IVAND Varios 1 18-04-2012 00:21:07
Cambiar el caption de un boton segun el registro nenufer Varios 8 08-06-2006 09:32:48
Captión de un Formulario auxiliar. bbjb OOP 5 10-03-2005 15:59:08
Un boton me lleva a un formulario y otro almacena. pepelu1975 OOP 3 11-02-2004 22:01:27


La franja horaria es GMT +2. Ahora son las 09:59:41.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi