PopUp Dinamico en un Edit

[sionks]

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.

[[Caral]]

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

[[cHackAll]]

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

[[Caral]]

Hola
Muy bueno amigo, que decir.
Saludos

[jandok238]

Hola....

con una observacion y una pregunta ...

primero... supongo que en tu codigo cHackAll

Empezado por cHackAll

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;  //creo que en lugar deDBGrid1  es  QTemp no?
   PopupMenu1.Items.Add(Item);
   QTemp.Next;
  end;

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!!!!

[[cHackAll]]

Empezado por jandok238

primero... supongo que en tu codigo cHackAll...

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

Empezado por jandok238

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 ??

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

[sionks]

Gracias me ha servido de Mucho

[[fer21unmsm]]

Empezado por Caral

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

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]