Delphi 多线程中创建窗体 - Delphi / Windows SDK/API
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure FileMd;
begin
Application.CreateForm(TForm2, Form2); //这里错误,
Form2.ShowModal; //这里错误,
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dloopThreadID:DWORD;
begin
CreateThread(nil,0,@FileMD,nil,0,dloopThreadID);
end;
end.
会创建多个窗体!该如何创建!
Xabi Alonso
先up再看看
VCL的框架结构 就不允许在线程中创建窗体,否则整个消息循环就乱了!
VCL的框架结构 就不允许在线程中创建窗体,否则整个消息循环就乱了!
虚心学习一下。。。
多线程不熟悉。。。来学习地。。。
听说vcl在线程中是不安全的,
相关问答:
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
delphi 數據類型 定義A~Z 為有序型,A為最小,Z最大。
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
用集合搞定
怎麼去運算呢?inc() ......
数据: 年 月 日 开盘 收盘
使用下面语句搜索到了 每年每个月的月初和月末都是几号
select 年,月,MIN(日) as frist,MAX(日) AS laset from mt4his.DB GROUP BY 年,月
我想得到 每年每个月的月初和月末 ......
我用的是sql server2000,里面存有字段:照片 image
我不明白怎么把图片存入数据库中?
我还在Delphi中建立了窗体,如何将数据库中的图片一并显示出来,我用的是DBGrid和Image
如何将两者关联起来?!
参考(我回 ......