标签: tcombobox

获取当前选定的Combobox值并将其用作变量

我的问题是关于Delphi 7.我需要获取当前选择的ComboBox1值,以便在我的代码中将其用作浮点变量:

t:=t+ComboBox1. // Not sure what to write here...
Run Code Online (Sandbox Code Playgroud)

谢谢!

delphi combobox tcombobox

9
推荐指数
2
解决办法
6万
查看次数

具有csOwnerDrawFixed样式的Combobox如何表现得像csDropDown样式?

我正在使用一个TComboBox组件,其style属性设置为csOwnerDrawFixed,我实现了OnDrawItem并且一切正常,现在我想要哪个组合框表现得像csDropDown样式(csOwnerDrawFixed样式的行为类似于csDropDownList样式),我的意思是内部编辑.这可能吗?

delphi ownerdrawn delphi-xe tcombobox

8
推荐指数
2
解决办法
2964
查看次数

是否可以在Delphi的TButtonedEdit中添加历史列表下拉列表?

我正在使用Delphi XE2的TButtonedEdit,但我想为历史记录添加一个下拉列表(如TComboBox).我知道TComboBox是一个美化的TEdit,所以我可以发送一条消息给TButtonedEdit来添加这个功能吗?谢谢.

delphi delphi-xe2 tbuttonededit tcombobox

4
推荐指数
1
解决办法
1379
查看次数

LookupSource必须连接到TTable组件

我正在尝试使用TDBLookupCombo,但是收到错误"EInvalidOperation with message'LookupSource必须连接到TTable组件'.

我将TDBLookupCombo.LookupSource连接到TDataSource.TDataSource.Dataset指向一个TClientDataSet,它包含查找表的记录(字段ID和描述).

LookupDisplay := 'Description';
LookupField := 'ID';
LookupSource := dsLookup;
Run Code Online (Sandbox Code Playgroud)

这是不可能的,因为TCilentDataSet不是TTable的后代?如果是这样,那么在不使用第三方组件的情况下,最佳选择是什么.

delphi tclientdataset data-aware delphi-xe2 tcombobox

1
推荐指数
1
解决办法
620
查看次数

如何避免用户输入TComboBox?

我希望在TCombobox更改值的唯一方法是使用鼠标.

如果Items为1,2和3,则用户可以键入4,它将成为值.

我试图使用OnKeyDown但不知何故我想"避免关键".怎么做到这一点?

delphi tcombobox

1
推荐指数
1
解决办法
268
查看次数

Delphi TComboBox禁用突出显示(聚焦)

打开 TCombobox 中的表单项后,突出显示(文本上的蓝色背景)。

是否可以禁用该功能。

在此输入图像描述

全部 Tnx!

delphi tcombobox

1
推荐指数
1
解决办法
1141
查看次数

Delphi通过EnumWindows,Enumchildwindows或Spy ++检查TGroupBox内的外部TLabel

我正在Delphi XE2中开发一个应用程序,它通过EnumWindows和EnumChildWindows函数检查一个运行应用程序的窗口,该窗口也是用Delphi编写的.

这是主要代码(改编自一个例子:http://www.swissdelphicenter.ch/torry/showcode.php?id = 410)

function EnumChildWindowsProc(Wnd: HWnd; Form: TForm1): Bool; export;
  {$ifdef Win32} stdcall; {$endif}
var
  Buffer: array[0..99] of Char;
begin
  GetWindowText(Wnd, Buffer, 100);

  if StrPas(Buffer) = '' then Buffer := 'Empty';
  new(AWindows);
  with AWindows^ do
  begin
    WindowHandle := Wnd;
    WindowText   := StrPas(Buffer);
  end;

  CNode := Form1.TreeView1.Items.AddChildObject(PNode,
               AWindows^.WindowText + ':' +
               IntToHex(AWindows^.WindowHandle, 8), AWindows);

  if GetWindow(Wnd, GW_CHILD) = 0 then
  begin
    PNode := CNode;
    Enumchildwindows(Wnd, @EnumChildWindowsProc, 0);
  end;
  Result := True;
end;

function EnumWindowsProc(Wnd: HWnd; …
Run Code Online (Sandbox Code Playgroud)

delphi tlabel spy++ delphi-xe2 tcombobox

0
推荐指数
1
解决办法
778
查看次数