好几个DELPHID问题! 那你把时间间隔设短点。在CLICK下写var bt ;tbuton;begin bt :=tButton.create(self); bt.parent :=Form1;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //找一个简单的回答先//最后一个procedure TForm1.Button1Click(Sender: TObject);{$J+}const I: Integer = 0;{$J-} //不要问我{$J+/-}是干啥,自己看helpbegin with TLabel.Create(Self) do begin Parent := Self; Caption := '你好'; Top := 10; Left := I; Inc(I, Width + 2); end;end; unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end;var Form1: TForm1; StX,StY,OldX,OldY:integer; MD:boolean;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin StX:=x; Sty:=y; OldX:=x; OldY:=y; MD:=True;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin if MD then begin Form1.Canvas.Pen.Color:=clBtnFace; Form1.Canvas.Rectangle(Stx,sty,Oldx,Oldy); Form1.Canvas.Pen.Color:=clBlack; Form1.Canvas.Rectangle(Stx,sty,x,y); Oldx:=x; Oldy:=y; end;end;procedure TForm1.FormCreate(Sender: TObject);begin MD:=False; Form1.Canvas.Pen.Style:=psDash;end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin MD:=False;end;end. Implementationvar i:integer;procedure TForm1.Button1MouseDown(Sender: TObject;Button:TMouseButton;Shift: TShiftState; X, Y: Integer);begin with TLabel.Create(Self) do begin Parent := Self; Caption := inttostr(i); i:=i+1; Top:=y; Left:=x; Width:=30; Height:=10;end;end; Socket服务器,同时有几千个连接,怎么轮训 关于delphi版本开发问题 复制和粘贴 VCLZip压缩问题,请高手解答。 如何根据汉字得到相应的拼音,(在线等待中…………) 在线等,急!急!从一个字符串中取一定长度的字符串 请问各位大虾,在delphi中怎样处理四舍五入的小数点? 用ShellExecute的问题 DELPHI下的数据发布问题 请问调用什么api,在一个局域网里可以把另一台机器开关 征集Delphi爱好者的E-Mail,不管你是爱好者还是高手请写出你的E-Mail最好还加上QQ,以便大家交流! 在delphi中如何调用VB写的dll动态链接库
//最后一个
procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const
I: Integer = 0;
{$J-} //不要问我{$J+/-}是干啥,自己看help
begin
with TLabel.Create(Self) do begin
Parent := Self;
Caption := '你好';
Top := 10;
Left := I;
Inc(I, Width + 2);
end;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
StX,StY,OldX,OldY:integer;
MD:boolean;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
StX:=x;
Sty:=y;
OldX:=x;
OldY:=y;
MD:=True;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if MD then
begin
Form1.Canvas.Pen.Color:=clBtnFace;
Form1.Canvas.Rectangle(Stx,sty,Oldx,Oldy);
Form1.Canvas.Pen.Color:=clBlack;
Form1.Canvas.Rectangle(Stx,sty,x,y);
Oldx:=x;
Oldy:=y;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
MD:=False;
Form1.Canvas.Pen.Style:=psDash;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MD:=False;
end;end.
var
i:integer;
procedure TForm1.Button1MouseDown(Sender: TObject;Button:TMouseButton;Shift: TShiftState; X, Y: Integer);begin
with TLabel.Create(Self) do begin
Parent := Self;
Caption := inttostr(i);
i:=i+1;
Top:=y;
Left:=x;
Width:=30;
Height:=10;
end;
end;