2

実行時にスクロール可能な TW3ListMenu を作成するにはどうすればよいですか?

TW3ListMenu を使用し、右側にキャプションとアイコンを表示するだけで ">" をクリックして、追加情報をセカンダリ フォームに表示したい 50 項目を垂直方向にスクロールするためのもう少し良いものが必要です。

TW3ListMenu を使用してアイテムのスクロール可能なリストを作成するにはどうすればよいですか?

TW3ScrollBox に TW3ListMenu を作成しましたが、スクロールしないようです

多分そのレイアウト？

procedure TfrmMain.InitializeObject;
var
 i: Integer;
procedure AddMenuItem(caption: string);
var
 li: TW3ListItem;
begin
 li := fListMenu.Items.Add;
 li.Text := caption;
 li.OnClick :=
 procedure (Sender: TObject)
 begin
  //ShowMessage('You clicked: ' + (Sender as TW3ListItem).Text);
 end;
end; //addmenu


begin
  inherited;
  {$I 'frmMain:impl'}


   fHeader:= TW3HeaderControl.Create(self);
   fHeader.Height:= 50;
   fHeader.Title.Caption := 'Mountains';
   fHeader.Title.AlignText:= taCenter;
   fHeader.BackButton.Visible:= False;
   fHeader.StyleClass:= 'TW3Header';


   fBackButton:= TMenuButton.Create(self);
   fBackButton.Caption:= 'Back';
   fBackButton.Height:=  50;
   fBackButton.StyleClass:= 'TMenuButton';
   fBackButton.OnClick:= BackButtonClick;


   fScrollBox:= TW3Scrollbox.Create(self);
   fListMenu:= TW3ListMenu.Create(fScrollbox);

   For i:= 1 to 46 do
   AddMenuItem(IntToStr(i));




   FLayout :=
    Layout{1}.Client(Layout{2}.Margins(5).Spacing(5), [
     Layout{3}.Top(fHeader),
     Layout{4}.Client(fScrollbox),
     Layout{5}.Bottom(fBackButton)]);
end;

私も2つのレイアウトを試しました....

fScrollBox:= TW3Scrollbox.Create(self);
   fListMenu:= TW3ListMenu.Create(fScrollbox);
   For i:= 1 to 46 do
   AddMenuItem(IntToStr(i));

   FScrollLayout :=
    Layout{1}.Client(Layout{2}.Margins(5).Spacing(5), [
    Layout{3}.Client(fScrollbox)]);


   FLayout :=
    Layout{1}.Client(Layout{2}.Margins(5).Spacing(5), [
     Layout{3}.Top(fHeader),
     Layout{4}.Client(fScrollLayout),
     Layout{5}.Bottom(fBackButton)]);
4

1 に答える 1

0

warleyalex がSmart Mobile Studio フォームにソリューションを投稿しました

qtxlibraryを使用するソリューション

于 2015-12-01T11:50:59.843 に答える