---- 下面举一个利用Handle传递位图的例子:
procedure TForm1.LoadBmpClick(Sender: TObject);
var
bmp:TBitmap;
begin
; ; bmp:=TBitmap.Create;
; try
; ; bmp.LoadFromFile('c:/windows/setup.bmp');
; ; with image1 do begin
; ; ; Picture.Bitmap.Handle:=bmp.Handle;
; ; ; Update;
; ; ; Refresh;
; ; end;
; finally
; ;bmp.Free;
; end;
end;
我想触类旁通,亦可以传递button或edit得句柄,然后读出其name,caption等!