如题。
解决方案 »
- 取文件修改时间的问题
- 想做出如果效果,怎么实现?有这样的控件吗? 有图
- 菜鸟过份的请求:哪位大虾能给一个VIEWTREE的典范看看,DELPHI下面的DEMOS那个例程看不懂啊。
- 求 《windows核心编程》一书,万分感谢
- 如何屏蔽掉alt+f4,ctrl+alt+del,及任务管理器里的进程
- 怎样调用对象!急!!!!
- 帮帮我吧。。。急呀。。。。。。。。。
- 哪个有这个控件的完整版(支持delphi6),我给100分?????
- writeln(1st)是什么意思?
- 请问有关delphi项目编译的一个小问题。
- 问一下关于权限的问题,大家是怎样设计的.
- 麻烦帮我把这段vb程序改为delphi的,谢谢
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
FBmp:TBitmap;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol=1) and (ARow=1) then
begin
StringGrid1.Canvas.Draw(Rect.Left,Rect.Top,FBmp);
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
FBmp:=TBitmap.Create;
FBmp.LoadFromFile('c:\1.bmp');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FBmp.Free;
end;end.