Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

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
 



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 02:44:53.


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