标签: delphi-7

我想做的是制作一个按钮，在备忘录中获取字符数并将其输出到标签中

如果这似乎是一个愚蠢的问题，我深表歉意，但我仍在学习 Delphi。

我想直接将一个url加载到一个没有任何数据流的字符串中,最好的方法是什么,internet open url但它似乎不太清楚.

我不想使用任何组件来阅读一些短消息

注意:不要编辑此代码的布局!(见下面的答案)

procedure TForm1.ReadCardTimer(Sender: TObject);
begin
ReadCard2(StrToInt(PChar('$' + Form2.Edit1.Text)),1);
ReadCard2(StrToInt(PChar('$' + Form2.Edit3.Text)),2);
ReadCard2(StrToInt(PChar('$' + Form2.Edit2.Text)),3);
ReadCard2(StrToInt(PChar('$' + Form2.Edit4.Text)),4);
ReadCard2(StrToInt(PChar('$' + Form2.Edit5.Text)),5);
ReadCard2(StrToInt(PChar('$' + Form2.Edit6.Text)),6);
ReadCard2(StrToInt(PChar('$' + Form2.Edit7.Text)),7);
ReadCard2(StrToInt(PChar('$' + Form2.Edit8.Text)),8);
ReadCard2(StrToInt(PChar('$' + Form2.Edit9.Text)),9);
ReadCard2(StrToInt(PChar('$' + Form2.Edit10.Text)),10);
ReadCard2(StrToInt(PChar('$' + Form2.Edit11.Text)),11);
ReadCard2(StrToInt(PChar('$' + Form2.Edit12.Text)),12);
ReadCard2(StrToInt(PChar('$' + Form2.Edit13.Text)),13);
ReadCard2(StrToInt(PChar('$' + Form2.Edit14.Text)),14);
if NewValue = 0 then
Image1.Hide;
Image2.Hide;
if NewValue > 0 then
Image1.Show;
Image2.Show;
UpdateCardImage(NewValue,NewValue2,'Image1');
UpdateCardImage(NewValue3,NewValue4,'Image2');
UpdateCardImage(NewValue5,NewValue6,'Image3');
UpdateCardImage(NewValue7,NewValue8,'Image4');
UpdateCardImage(NewValue9,NewValue10,'Image5');
UpdateCardImage(NewValue11,NewValue12,'Image6');
UpdateCardImage(NewValue13,NewValue14,'Image7');
end;

由于某种原因,第二张图片我试图隐藏......不会隐藏......我可以注释掉第一张图片而第二张图片会隐藏在这里发生什么？

我创建了一个名为glyfs.rc的png资源文件
GLYF_CONFEDITOR RCDATA confeditor.png
GLYF_EXTRAFE RCDATA extrafe.png
.......

我在我的项目中添加它.
放一个TsBitBtn(它是一个alphaskin组件类)并尝试sbitbtn1.Glyph.LoadFromResourceName(HInstance,'GLYF_CONFEDITOR');
在运行时从资源文件加载 glyf我得到名称为'GLYF_CONFEDITOR'的错误资源文件未找到.

我究竟做错了什么？

我用于png的3方工具是从这里下载
的pngdelphi但是sbitbtn加载原生的png文件...

我通过建立用户注册应用程序来进行mysql连接.我使用Delphi 7.Myquery(MySQL Access Set)在添加用户信息时遇到问题.

MyQuery1.SQL.Clear;
MyQuery1.SQLInsert.Add('INSERT INTO uyeler (nick) VALUES ('+QuotedStr(DBEdit1.text)+')');
MyQuery1.SQLInsert.Add('INSERT INTO uyeler (mail) VALUES ('+QuotedStr(DBEdit2.text)+')');
MyQuery1.SQLInsert.Add('INSERT INTO uyeler (site) VALUES ('+QuotedStr(DBEdit3.text)+')');
MyQuery1.SQLInsert.Add('INSERT INTO uyeler (pass) VALUES ('+QuotedStr(DBEdit4.text)+')');
MyQuery1.CachedUpdates:=True;
MyQuery1.Open;

错误消息: MyQuery1:未提供SQL语句.

注意: uyeler:成员表.

我如何在此处使用此功能:创建图像并着色红外线？对于jpeg？

因为Bmp格式有大尺寸.我想在图片中小尺寸学习.

我用这个代码

如何让它作为信息出现在我的屏幕上？

Function GetUserFromWindows:String;    
Var    
  UserName : string;   
  UserNameLen : Dword;    
Begin    
  UserNameLen := 255;  
  SetLength(userName, UserNameLen) ;   
  If GetUserName(PChar(UserName), UserNameLen) Then     
    Result := Copy(UserName,1,UserNameLen - 1)       
  Else     
    Result := 'Unknown';      
End;

我正在使用delphi开发一个新的应用程序.我有一个名为MainForm的表单.MainForm有3个面板:Panel1,Panel2和Panel 3.面板按照从表格顶部到表格底部的顺序插入.Panel1 Align属性设置为alTop,Panel3 Align属性设置为alBottom.Panel 2 align属性设置为alClient.我在Panel2上有一个DBGrid.

问题是当用户在运行时调整表单大小时,DBGrid大小不受影响.当我更改面板2和面板3的顺序时,DBGrid的大小会随着用户更改表单大小而更改.

我想知道是否可以将面板2放在窗体的中间,并且还可以在用户更改窗体大小时更改DBGrid？

我正在帮助一位同事安装他的电脑,这样他的Delphi 7环境就像我一样.他安装了Delphi 7以及我们使用的第三方工具.我们有一个带源代码的Delphi应用程序.它在我的计算机上编译得很好但是当他在他的计算机上编译它时,它会不断地为许多dcu文件提出"找不到文件"的错误.这些是第三方组件的dcu文件,可以是Delphi IDE附带的,也可以手动安装.

我重命名了他的C:\ Program Files(x86)\ Borland文件夹,并将我的整个Borland文件夹结构复制到他,以便他拥有我拥有的东西.所以现在他的Delphi IDE和应用程序结构类似于我的,但他仍然缺少dcu的.每当他得到一个失踪的dcu时,他就会将自己的路径添加到Delphi的"搜索路径"列表中.对于某些dcu,它们存在于不同的文件夹中,这意味着我们必须进一步排除故障,以确保我们选择了正确的版本.我的"搜索路径"是空的,如下所示,它告诉我我的Delphi不使用此条目来搜索dcu.我们的计算机的PATH环境变量条目对于与Delphi相关的任何内容都具有相同的值.

我的问题是为什么我的delphi应用程序编译得很好,因为它发现它需要的所有dcu都驻留在不同的文件夹中但是当我们有相同的文件夹结构和PATH时他的Delphi没有找到它们？

Delphi IDE如何在编译期间找到所需的所有dcu？现在要看的是注册表.是注册表中的搜索模式吗？哪里？(如果这意味着什么,我们也安装了Delphi XE)

我正在尝试编写一个登录过程,但是在尝试执行包含将来自用户输入的变量的SQL语句时,我遇到了问题.

以下是它的外观:

Var 
  SS,temp,fn,sn: string;
Begin 
  ADO := TDBClass.Create('ICAdatabase.mdb');

  SS:= 'SELECT * FROM Agents Where aName = '  '  ' + fn + ' ' '  And aSurname = ' ' ' + sn +  ' ' ' ';

  Temp := Ado.processquery(SS);
End;

当我尝试使用这样的变量时,我得到"缺少运算符"或"分号错误"或"未终结字符串".为什么是这样？