盒子论坛 v2.1

Do you mean, get the first visible item in the list?

It may be necessary to check the scroll value and perform a calculation based on the height of the items, so I think you can know which item is at the top of the combobox window based on the scroll position, height of the item (if they all have the same height), considering the height of the visible window. did you understand?
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

mp654kk (mp654kk)	▲△△△△	-
	普通会员

2023/10/14 1:23:06

2楼：

@emailx45 Yes, can the scrolling value be obtained?
----------------------------------------------
-

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2023/10/14 2:27:51

3楼：

as said before, in a "class" exists many others hided...
short answer: YES!
long answer: needs hack

ComboBox has a TListBox -> TListBox has ScrollBar object
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

mp654kk (mp654kk)	▲△△△△	-
	普通会员

2023/10/15 18:47:21

4楼：

@emailx45 Thanks,is this how to get it? This is written by ChatGPT. Why is it reporting an error?
uses
  FMX.ListBox, FMX.Types;

procedure GetVerticalScrollBarPosition;
var
  ListBox: TListBox;
  ScrollBar: TVertScrollBox;
  ScrollPosition: Single;
begin
  ListBox := ListBox1;
  ScrollBar := ListBox.FindStyleResource('vscrollbar') as TVertScrollBox;
  if Assigned(ScrollBar) then
  begin
    ScrollPosition := ScrollBar.Value;
    ShowMessage('Vertical Scroll Position: ' + FloatToStr(ScrollPosition));
  end;
end;
----------------------------------------------
-

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2023/10/16 7:09:59

5楼：

try this:

   xxxxx AS TScrollBar....  or  TScrollBar( xxxx ).Value....

var
  O : TFmxObject;
begin
  O := xxxx.FindStyleResource ......
  if ( O <> nil ) and ( O is TScrollBar) then
     TScrollBar( O ).Value ....
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

mp654kk (mp654kk)	▲△△△△	-
	普通会员

2023/10/16 13:02:10

6楼：

@emailx45 谢谢改成这样就可以了
procedure TForm1.Button1Click(Sender: TObject);
var
  ScrollBar: Tscrollbar;
  id: Integer;
begin
  ScrollBar := ListBox2.FindStyleResource('vscrollbar') as Tscrollbar;
  ShowMessage(ScrollBar.Value.ToString());
end;
----------------------------------------------
-

信息

登陆以后才能回复