PopUp Dinamico en un Edit
 

Buenas, Estoy desarrollando un sistema, en el cual necesito que cuando este modificando un edit, haga una consulta a una base de datos, y lel resultado lo vaya desplegando en una especie de menu tipo popup, Gracias por su atencion y ojala alguien me pueda apoyar en como resolver este pequeño detalle.

Hola

Código Delphi [-]
   QTemp.SQL.Text := 'Select TuCampo From TuTabla';
   QTemp.Active := True;
   While not QTemp.Eof do
   begin
      PopupMenu1.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;

Saludos

Con tu permiso maestro;

Código Delphi [-]
var Item: TMenuItem;
 
...

 QTemp.SQL.Text := 'Select TuCampo From TuTabla';
 QTemp.Active := True;
 while not QTemp.Eof do
  begin
   Item := TMenuItem.Create(PopupMenu1);
   Item.Caption := DBGrid1.Fields[0].Text;
//   Item.OnClick := ...
   PopupMenu1.Items.Add(Item);
   QTemp.Next;
  end;

Saludos

Hola
Muy bueno amigo, que decir.:)
Saludos

Hola....

con una observacion y una pregunta ...:)

primero... supongo que en tu codigo cHackAll

bueno esa era la observacion.... ;);)

ahora la pregunta....

Cual es la diferencia con la respuesta de Caral ??

Por lo que alcazo a comprender... tu asignas el valor a un TMenuItem y luego lo agregas al PopupMenu.... en cambio Caral lo hace directo ??

Es cuestion de rendimiento?? estetica?? forma correcta de hacer las cosas?? o simplemente otra forma de hacerlo ??

Salu2!!!!

Gracias
 

Gracias me ha servido de Mucho

En definitiva, al probarlo me olvide ponerle el mismo nombre que puso el maestro Caral en su code :o

Me parece que el code de Caral no funcionaba 100% y con mi corrección si; talvez la respuesta a tus preguntas la encontraras al probar ambos códigos. :)

Saludos

De eso no hay duda ... ;)

lo que pasa es que no tenia DELPHI a la mano, y yo crei que el codigo que puso Caral si servia bien... bueno, de hecho... ahorita me dispongo a comprobar ambas soluciones, como bien me recomiendas.... :):)

salu2!!!!!

EDITO....

Pues ya hice la prueba... y como bien indicaste, el codigo de Caral NO sirve :D:D:D ..... El detalle que segun DELPHI

[Ayuda de Delphi]
procedure Add(Item: TMenuItem); overload;
[/Ayuda de Delphi]

y por lo tanto no se puede poner directamente una cadena de texto.... ( como lo habia puesto el novato Caral {con todo respeto}) :)

Bueno esto es a lo que llegue.....

Espero estar en lo correcto... si estoy mal.. que alguien me avise.... ;);)

salu2!!!!

Bueno, creo que en el ejemplo de caral está agregando un texto "QTemp.Fields[0].Text" en vez de un objeto TMenuItem lo cual no es correcto, y en el codigo de chackall, si le pasa a PopupMenu1.Items.add un objeto de tipo TMenuItem.

Saludos
[Edit]
No vi la edicion de arriba
[/Edit]