delphi-xe8

3热度

2回答

虽然调用Windows API函数封装一样ExtractShortPathName后使用GetLastError我注意到，GetLastError不管调用ExtractShortPathName是成功还是失败返回非零错误代码。实际上，在我的程序执行之前，似乎有一个“最后的错误”，例如， program TestGetLastError; {$APPTYPE CONSOLE} {$R *.re

-2热度

2回答

如何在delphi中使用MultiByteToWideChar？

我想使用MultiByteToWideChar，但我得到'未声明的标识符'。它在哪里宣布？哪个'使用'？我正在使用Embarcadero Delphi XE8。

-1热度

1回答

Delphi的继承重叠：在创建子见父亲

就是这种情况： 3 involucrated：一个myComponent的部件，一个祖先形式和子形式：（编辑） MyComponent的： unit Component1; interface uses System.SysUtils, System.Classes, Vcl.Dialogs; type TMyComponent = class(TComponent

0热度

1回答

定时器导致锁

谁能告诉我为什么这段代码导致我的应用程序停止响应。我的应用程序调用一个COM库。我等待COM库事件触发，以便继续。我用一个定时器，以保持检查是否COM库解雇： procedure MyTimer(hWnd: HWND; uMsg: Integer; idEvent: Integer; dwTime: Integer); stdcall; begin //writeln('Timer

1热度

1回答

TVirtuailStringTree文字和图像对齐

我在tvirtuailstringtree绘制文本和图像，如onbeforecellpaint事件之后 begin Textrectplace := NewRect; Textrectplace.Left := Textrectplace.Left + 2; Textrectplace.Width := 24; Textrectplace.Height := Data.image.heig

-1热度

2回答

RAD Studio XE8表现得很奇怪

我正在使用RAD Studio XE8当按下输入IDE中的文本行时没有移动到下一行，或者当我按下空格键时，它开始删除空格后面的文本。

0热度

3回答

方法不再起作用

在我使用的方法描述here放置在Delphi上TStatusBar一个TProgressBar过去：（？最近的Windows更新后） procedure TForm1.FormCreate(Sender: TObject); var ProgressBarStyle: integer; begin //enable status bar 2nd Panel custom d

0热度

1回答

如何使用Firemonkey访问Windows平板电脑上的相机？

就像我在标题中写的那样，我想从Windows平板电脑上拍照，但没发现它是怎么做的。 Firemonkey应该允许多平台开发，但我发现拍照的所有东西都只能在Android和iOS上使用。由Embarcadero here给出的示例在Windows上不起作用，看起来Windows不能识别事件TakePhotoFromCameraAction1，因为任何具有此操作的按钮都不会出现在窗体上。我也试过t

0热度

1回答

选择DBListbox项目在不同的颜色和插入文本

我能够使用它的样式改变DBCombobox物品的颜色csOwnerDrawFixed类似 How do I draw the selected list-box item in a different color? procedure TForm1.DBComboBoxDrawItem(Control:TWinControl; Index: Integer; Rect: TRect; S

0热度

1回答

在delphi中为页面动态设置可见属性

我使用的TAdvToolBarPager与许多页面（AdvPage1，AdvPage2，AdvPage3 ...）。每个页面包含许多编辑，导航器等。基于用户权限，我想约束属性，即对于ADMIN我想显示所有页面（1,2,3），但对于USER我只想显示页面（1,2）或（1）。我可以使用下面给出的代码禁用所有编辑，导航器。有人可以帮助我如何在TAdvToolBarPager visble基础上设置页面