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 27-11-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Caminante.
Ahora entiendo lo que buscas.
Podrías utilizar un ComboBox insertándolo en el campo correspondiente de la grilla.
No uso el JVdblookupcombobox, pero esto funciona correctamente en un TDBGrid, probá si te funciona con ese componente

Código Delphi [-]
...
interface
procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Items.Add('Unidades');
  ComboBox1.Items.Add('Kilogramos');
  ComboBox1.Style:= csDropDownList; // o el estilo que quieras
  ComboBox1.Visible:= False;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State)and(Column.Field.FieldName = 'Campo_de_Unidades') then
  begin
    ComboBox1.Left := Rect.Left + DBGrid1.Left + 2;
    ComboBox1.Top := Rect.Top + DBGrid1.top + 2;
    ComboBox1.Width := Rect.Right - Rect.Left;
    ComboBox1.Height := Rect.Bottom - Rect.Top;
    ComboBox1.Visible := True;
  end;
end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
   if DBGrid1.SelectedField.FieldName = 'Campo_de_Unidades' then
    ComboBox1.Visible:= False;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Caption:= (Sender as TComboBox).Text;
  if (Sender as TComboBox).Text = 'Unidades' then
   // PASAR A UNIDADES
  else
   // PASAR A KILOGRAMO
end;

Ajusté los campos y la propiedad visible en el evento OnShow para mayor legibilidad, pero lo podrías asignar en tiempo de diseño.

Saludos.

Última edición por ecfisa fecha: 28-11-2010 a las 00:10:20.
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
DBLookupCombobox Cañones OOP 2 27-04-2007 18:40:29
DBLookupComboBox ChristianP Varios 3 15-03-2007 23:12:28
dos DBLookupComboBox.......... inexperto Conexión con bases de datos 1 15-07-2005 06:55:17
DBLookupComboBox karocs Conexión con bases de datos 3 11-08-2004 21:20:09
DBLookUpComboBox silviodp Conexión con bases de datos 3 18-06-2004 06:31:14


La franja horaria es GMT +2. Ahora son las 20:18:24.


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