pdword是什么类型,我怎么没见过;
好象有一种强制转换的方法 String(变量)
下面是文字的滚屏显示
procedure TfShareAboutBox.LabelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Line:integer;
I:integer;
begin
if (Button = mbRight) and (ssShift in Shift) then
begin
Panel_Declaration.Visible := false;
Line := PaintBox_AboutBox.Canvas.TextHeight('0');
for I:=0 to 150 + Line * 10 do
with PaintBox_AboutBox.Canvas do
begin
Font.Name := '宋体';
Font.Size := 9;
Font.Color := clBlue;
TextOut(2,65 - I,'干掉日本人');
TextOut(30,65 + Line * 2 - I,'杀杀杀杀杀');
TextOut(35,65 + Line * 4 - I,'杀杀杀');
TextOut(35,65 + Line * 5 - I,'杀杀');
Delay(0,5);
end;
Panel_Declaration.Visible := true;
end;
end;
好象有一种强制转换的方法 String(变量)
下面是文字的滚屏显示
procedure TfShareAboutBox.LabelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Line:integer;
I:integer;
begin
if (Button = mbRight) and (ssShift in Shift) then
begin
Panel_Declaration.Visible := false;
Line := PaintBox_AboutBox.Canvas.TextHeight('0');
for I:=0 to 150 + Line * 10 do
with PaintBox_AboutBox.Canvas do
begin
Font.Name := '宋体';
Font.Size := 9;
Font.Color := clBlue;
TextOut(2,65 - I,'干掉日本人');
TextOut(30,65 + Line * 2 - I,'杀杀杀杀杀');
TextOut(35,65 + Line * 4 - I,'杀杀杀');
TextOut(35,65 + Line * 5 - I,'杀杀');
Delay(0,5);
end;
Panel_Declaration.Visible := true;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货