Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ddblookupcombobox vista completa del renglon (https://www.clubdelphi.com/foros/showthread.php?t=88949)

shoulder 01-09-2015 02:37:31

ddblookupcombobox vista completa del renglon
 
Hay una forma aunque el dblookupcombobox sea mas chico que la cantidad de caracteres del renglon a visualizar, se vea el renglon completo o al pasar por encima con el mouse se vea la linea en amarillo con la totalidad de los caracteres?
Ejemplo si las lineas son : opcion 1. Comando para elegir girar derecha
opcion 2. Comando para elegir girar izquierda

pero por el largo del dblookupcombobox por el espacio que tengo veo solamente : opcion 1. Comando para elegir girar

Gracias.

Casimiro Notevi 01-09-2015 09:21:48

Creo que puedes usar la propiedad Hint, aprovechando el evento onMouseMove.

ecfisa 01-09-2015 22:06:08

Hola.

La sugerencia de Casimiro esta muy buena.

Otra opción que podría servirte es mostrar el campo en un TStatusBar:
Código Delphi [-]
 TForm1 = class(TForm)
    ...
    DBLookupComboBox1: TDBLookupComboBox;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    procedure DataSetAfterScroll(DataSet: TDataSet);
  public
  end;

...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBLookupComboBox1.ListSource.DataSet.AfterScroll := DataSetAfterScroll;
end;

procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
var
  lcb: TDBLookupComboBox;
begin
  lcb := DBLookupComboBox1;
  StatusBar1.SimpleText :=
    lcb.ListSource.DataSet.FieldByName(lcb.ListField).AsString
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DBLookupComboBox1.ListSource.DataSet.AfterScroll := nil;
end;

Saludos :)

shoulder 02-09-2015 20:51:01

Dblookupcombobox
 
Gracias Perfecto.


La franja horaria es GMT +2. Ahora son las 03:17:43.

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