Cita:
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]