DELPHI XE5-8 弹出列表框供选择
点击章节练习: var tmplm:Tlistboxitem; begin dm.FDQTMP.SQL.Clear; dm.FDQTMP.SQL.Add('select GSESSON from TSquestions where GLESSON=:ggl group by GSESSON'); dm.FDQTMP.Params.ParamByName('ggl').Value:=Qlesson; dm.FDQTMP.Open; dm.FDQTMP.First; ListBoxSesson.Items.Clear; ListBoxSesson.BeginUpdate; while not dm.FDQTMP.Eof do begin tmplm:=Tlistboxitem.Create(nil); tmplm.ItemData.Text:=dm.FDQTMP.FieldByName('GSESSON').AsString; tmplm.ItemData.Bitmap:=ImageYuan.Bitmap; tmplm.Parent:=ListBoxSesson; dm.FDQTMP.Next; end; ListBoxSesson.EndUpdate; popsesson.PlacementTarget:=Imagetop; popsesson.Placement:=TPlacement.plBottomCenter; popsesson.IsOpen:=true;
procedure TFmode.ListBoxSessonChange(Sender: TObject); begin //选择章节 Qsesson:=ListBoxSesson.Items[ListBoxSesson.ItemIndex] ; popsesson.IsOpen:=false; if length(Qsesson)<>0 then begin Application.CreateForm(TFAnsOne, FAnsOne); {$IFDEF Android} FAnsOne.show; {$ENDIF} {$IFDEF IOS} SHOWMESSAGE('下面开始第'+Qsesson+'章练习'); FAnsOne.show; {$ENDIF} {$IFDEF MSWINDOWS} FAnsOne.showmodal; {$ENDIF} end; end;