Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Cree una lista desplegable en StringGride, de tipo Lookup in DBGride Encontrar ramas similares


Кто нибудь делал?   (2001-12-14 08:12) [0]

Intenté crear un formulario con BorderStyle = bsNone y, en él, ListBox funciona, pero en el momento de su aparición el encabezado del formulario se vuelve inactivo.
Al utilizar componentes, no pueden ir más allá de la forma.
Tal vez alguien ya haya superado esto.



Владислав   (2001-12-14 08:47) [1]

¿Puedes probar el menú contextual?



Кто нибудь делал?   (2001-12-14 09:04) [2]

Gracias Vladislav.
Ya lo pensé: un redibujado con un redibujado, debe verse como una lista desplegable normal.
Tal vez usted puede preguntar a la ventana qué estilo para que no desactive el principal?



Владислав   (2001-12-14 10:42) [3]

Te puedo dar un pequeño ejemplo (a toda prisa). Tal vez algo ayude.



Mark_a   (2001-12-15 11:16) [4]

El formulario debe tener un StringGrid y ComboBox.
Usa el siguiente código:

procedimiento TForm1.FormCreate (Sender: TObject);
comenzar
{La altura del cuadro combinado "y no cambia, así que en lugar del cuadro combinado" a
Cambiaremos la altura de la línea de la cuadrícula "a!}
StringGrid1.DefaultRowHeight: = ComboBox1.Height;
StringGrid1.Cells [3,0]: = "Aquí hay una lista";
{Ocultar combobox}
ComboBox1.Visible: = False;
ComboBox1.Items.Add ("First item");
ComboBox1.Items.Add ("Segundo párrafo");
fin;

procedimiento TForm1.ComboBox1Change (Sender: TObject);
comenzar
{Transfiera el valor seleccionado de ComboBox a la cuadrícula}
StringGrid1.Cells [StringGrid1.Col, StringGrid1.Row]: =
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible: = False;
StringGrid1.SetFocus;
fin;

procedimiento TForm1.StringGrid1SelectCell (Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
R: TRect;
comenzar
if ((ACol = 3) AND (ARow <> 0)) entonces
comenzar
{El ancho y la posición del ComboBox deben coincidir
celda StringGrid}
R: = StringGrid1.CellRect (ACol, ARow);
R.Left: = R.Left + StringGrid1.Left;
R.Right: = R.Right + StringGrid1.Left;
R.Top: = R.Top + StringGrid1.Top;
R.Bottom: = R.Bottom + StringGrid1.Top;
ComboBox1.Left: = R.Left + 1;
ComboBox1.Top: = R.Top + 1;
ComboBox1.Width: = (R.Right + 1) - R.Left;
ComboBox1.Height: = (R.Bottom + 1) - R.Top;
{Mostrar combobox}
ComboBox1.Visible: = True;
ComboBox1.SetFocus;
fin
CanSelect: = True;
fin;



vlv   (2001-12-15 11:43) [5]

En la biblioteca de RX hay una clase como TPopupWindow ...



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.56 MB
Tiempo: 0.024 c
1-22247
como
2001-12-17 11:29
2002.01.08
Ayudar a alguien puede ...


4-22497
Sirio
2001-11-07 09:13
2002.01.08
Delphi 6 y Win32 API


3-21916
SVS
2001-12-03 12:08
2002.01.08
InterBase


1-22111
Quien hizo
2001-12-14 08:12
2002.01.08
Cree una lista desplegable en StringGride, de tipo Lookup in DBGride


1-22201
T2
2001-12-16 07:13
2002.01.08
Espectro de sonido





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español