小编Joh*_*ica的帖子

我遇到了一些障碍,是不是只是我或者你不能将资源中的图像分配给TSpeedButton的字形而没有可怕的黑色轮廓,如下所示？

我已经为TImage组件分配了完全相同的方式,我得到了所需的结果.

我一直在寻找相当长一段时间,但似乎没有人有这个奇怪和恼人的问题.

这是我下面表格的源代码:

procedure TForm3.Button1Click(Sender: TObject);
var r : tresourcestream; png : tpngimage;
begin
  r := tresourcestream.CreateFromID(hinstance,34,'cardimage');
  png := tpngimage.Create;  
  png.LoadFromStream(r);  
  png.AssignTo(image1.Picture.bitmap);  
  png.AssignTo(speedbutton1.glyph);  
  png.Free;  
  r.Free;  
end;

34是'cardimage'类型的图像,如果您还没有猜到,则与图片中显示的图像有关.

我和一个声誉很高的PHP人讨论过这个问题:

PDO在这里没用.以及mysql_real_escape_string.质量极差.

这当然很酷,但老实说我不知道​​建议使用mysql_real_escape_string或PDO修复此代码有什么问题:

<script type="text/javascript">
    var layer;

    window.location.href = "example3.php?layer="+ layer;

    <?php
        //Make a MySQL connection
        $query = "SELECT Category, COUNT(BUSNAME)
          FROM ".$_GET['layer']." GROUP BY Category";
        $result = mysql_query($query) or die(mysql_error());

进入这个

$layer = mysql_real_escape_string($_GET['layer']);
$query = "SELECT Category, COUNT(BUSNAME)
FROM `".$layer."` GROUP BY Category";

,考虑到JavaScript代码在客户端发送.

我想要一个按钮作为进度条.

+ = ........

例如,随着任务的进行,填充绿色背景的按钮.
我知道我可以创造自己的,但如果有一些现成的东西,我很乐意使用它.

有没有人知道适合该法案的免费或商业组件？

我更喜欢它在Delphi-2007中工作,但如果它只在XE2中可用,那也没关系.

更新
TMS具有glassbutton允许透明度的.如果你将一个Shape(带圆角)放在深绿色的下面,它看起来就像我想要的效果.
只需增加形状的宽度以匹配进度,您就可以开展业务.

当我有时间的时候,我会制作一个填充颜色的按钮,并建立一个链接.

看看这堂课:

TTest = class(TObject)  
public  
  constructor Create(A:Integer);overload;  
  constructor Create(A,B:Integer);overload;  
end;

现在,当我们想要使用该类时:

var  
  test:  TTest;  
begin  
  test:= TTest.Create; //this constructor is still visible and usable!  
end;

任何人都可以帮我隐藏这个构造函数吗？

Delphi中有哪些功能可以播放声音文件？

我有6张桌子:

CREATE TABLE IF NOT EXISTS `sbpr_groups` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `name` varchar(255) DEFAULT NULL,
  `active` tinyint(1) DEFAULT '0',
  `dnd` tinyint(1) DEFAULT '0',
  PRIMARY KEY (`id`)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=32 ;

CREATE TABLE IF NOT EXISTS `sbpr_newsletter` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `created_date` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  `from` varchar(255) COLLATE utf8_unicode_ci NOT NULL,
  `mail` varchar(255) COLLATE utf8_unicode_ci NOT NULL,
  `subject` varchar(255) COLLATE utf8_unicode_ci NOT NULL,
  `body` text COLLATE utf8_unicode_ci,
  `attach1` varchar(255) COLLATE utf8_unicode_ci NOT NULL, …

使用Delphi(或者通常是任何工具,如果存在的话),是否可以减小exe文件的大小,删除所有未使用但存在的代码？
(例如,存在但从不调用的函数或过程).
我记得使用Pascal,使用unit(没有对象),编译器只包含真正使用的过程和函数,并将从最终的exe中删除单元中未使用的例程.

使用Object-pascal,我记得在Delphi 1中,一个对象的所有成员都包含在exe中;
有什么变化,直到Delphi-XE2？

我有下表:

| campaign_id | source_id | clicked | viewed |
----------------------------------------------
| abc         | xxx       | 0       | 0      |  
| abc         | xxx       | 1       | 0      |
| abc         | xxx       | 1       | 1      | 
| abc         | yyy       | 0       | 0      |    
| abc         | yyy       | 1       | 0      |    
| abc         | yyy       | 1       | 1      |    
| abc         | yyy       | 0       | 0      |

我需要以下输出:

xxx > Total: 3 // …

Windows 7有一个很棒的工具叫做问题步骤记录器.
您可以通过psr在命令行上键入来启动它.

将其集成到Delphi应用程序中的最佳方法是什么？
psr有COM自动化接口吗？

我想要:

1. 从程序启动记录器(简单:发出命令行并启动它);
2. 自动开始录制; (这可以吗？)
3. 预设文件psr名将存储捕获; (怎么样？)
4. 将捕获邮件发送到我的代码中指定的电子邮件地址.

如果有一个替代工具可以做同样的事情,我当然也喜欢听到这个.
因为这主要是一个用户体验问题,我对自动崩溃报告不感兴趣,所以我知道madexcept在这些问题上做得很好.

我有兴趣看一个幻灯片,用户在4个步骤中解释为什么功能x很糟糕或者没有按预期工作.

我在Delphi中使用了很多Live Templates,但他们试图想出一个将GUIDS添加到模板的解决方案.有谁知道如何做到这一点？

在模板下面我现在使用GUID作为单词我需要手动替换.

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate   xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
            version="1.0.0">
<template name="iacc" surround="false" invoke="manual">
    <point name="name">
        <text>
            IntfAccessors
        </text>
        <hint>
            Accessors name
        </hint>
    </point>
    <description>
        accessor declaration
    </description>
    <author>
        PMH
    </author>
    <code language="Delphi" context="methoddecl" delimiter="|">    <![CDATA[I|name|Accessors = interface(IInterface)
GUID <-- here I want a GUID
end;


I|name| = interface(I|name|Accessors)
GUID <-- here I want a GUID
end;
    ]]>
        </code>
    </template>
</codetemplate>