小编XBa*_*000的帖子

如何在Vista / XP中调整主音量

我想像vista和xp中的Get / SetMasterVolume一样以编程方式调整音量吗?使用mmsystem单位?

media delphi windows-xp volume windows-vista

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

TScrollbox MouseDown覆盖

我创建了一个自定义滚动框派生自TScrollbox,它的工作方式相同,只是当它在滚动条的客户区域中拖动时会滚动.

我现在的问题是,当我的CustomScrollbox中的按钮或面板上有鼠标时,我无法拖动滚动.

MouseDown,MouseUp,MouseMove覆盖不会触发,因为它会悬停在不同的控件中.

当我开始拖动时,如何跟踪MouseDown,MouseUp,MouseMove并阻止按钮/面板事件触发(在我的CustomScrollbox内)?

这是我平滑的CustomScrollbox的视频

delphi custom-scrolling smooth-scrolling tscrollbox

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

如何使用 TIdMultiPartFormDataStream 处理 TIdHTTPServer

您好,我需要有关如何使用 indy 中的 IdHttpServer 检索参数和数据的帮助。

我的许多应用程序使用 TIdMultiPartFormDataStream 通过 php.ini 发送数据。我想使用 TIdHTTPServer 出于某种原因验证参数并将请求转发到其目的地。

我创建了一个简短的示例供您查看。

uses
  IdContext, IdMultipartFormData;

// Server Side------------------------------------------------

IdHTTPServer1.Defaultport := 88;
IdHTTPServer1.active := True;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  // the request will be pass through its destination by POST/GET
  // and send the result back to the client apps.
  AResponseInfo.ContentText := ARequestInfo.Params.Text;
end;

// Client Side------------------------------------------------
// This will work using the standard Post or Get
procedure TForm1.btnPost1Click(Sender: TObject);
var
  sl: TStringList;
  res: String;
begin …
Run Code Online (Sandbox Code Playgroud)

delphi indy simplehttpserver indy10

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

如何从剪贴板保存PngImage

如何将pngimage保存到文件复制的AdobeFirewoks(剪贴板)或Photoshop,而不会失去透明度.

我正在使用delphi2009.

先感谢您.

@TLama我试过这段代码,但没有透明度.如果我做得对,我也不知道.

  png := TPngimage.Create;
  try
    png.LoadFromClipboardFormat(CF_BITMAP,
      Clipboard.GetAsHandle(CF_BITMAP), CF_BITMAP);
    image1.Picture.Assign(png);
  finally
    png.Free;
  end;
Run Code Online (Sandbox Code Playgroud)

delphi clipboard png transparency

5
推荐指数
2
解决办法
4120
查看次数

你如何操作Delphi的宏录像机?

我正在使用Delphi 2009,我注意到代码编辑器下面有一个宏录制器.我该如何使用它?

ide delphi macros

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

如何自动安排代码结构?

我观察到组件具有统一,整洁和良好排列的代码结构.是自动安排还是手动?

有没有办法让它自动化?像Delphi中的Code Completion一样?

我正在使用Delphi 7,2009,2010 XE

delphi code-structure

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

移动TRichEdit Caretpos

有没有办法改变像素中的插入位置?

每当我移动鼠标鼠标时,我想移动护理pos.

喜欢:

Onmousemove:MoveCaretPos(X,Y);

delphi richedit

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

如何将webbrowser中的所有内容保存为Image

我想将webbrowser的内容保存为图像.那可能吗?

目的是创建页面的屏幕截图,然后将其作为图像查看到其他应用程序.

谁有人可以帮忙?

browser delphi

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

创建无法在表单上多次添加的简单组件

如何编写一个从不允许它在表单上多次删除的简单组件?
比方说,我已经在表单上删除了我的TMyComponent,如果我将删除另一个TMyComponent,它会通知'组件已经存在!' 并将取消在表单上删除组件.

delphi components custom-controls

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

如何防止arduino被覆盖

我只是问是否可以对arduino进行写保护以免被覆盖。
我使用串口在计算机和arduino之间进行通信,因此必须始终插入USB。问题是我如何保护它不被覆盖?

有什么方法可以启用/禁用上传草图吗?

假设我的草图是最终的,我不希望有人可以在其中写字。除非我解锁它。所以USB串口仅用于从arduino获取信息。

对不起我的英语不好。

arduino

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