unit xxchx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids,da, ExtCtrls, DBCtrls, Hemibtn, jpeg,
Mask;
type
TFxxchx = class(TForm)
Label3: TLabel;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBGrid5: TDBGrid;
Label7: TLabel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
HemisphereButton3: THemisphereButton;
Image1: TImage;
DBGrid6: TDBGrid;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
DBText5: TDBText;
DBText6: TDBText;
DBText4: TDBText;
procedure HemisphereButton3Click(Sender: TObject);
procedure DBGrid3ColEnter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Fxxchx: TFxxchx;
implementation
{$R *.dfm}
procedure TFxxchx.HemisphereButton3Click(Sender: TObject);
begin
image1.Free;
Fxxchx.Close;
end;
procedure TFxxchx.DBGrid3ColEnter(Sender: TObject);
begin
Image3.Picture.LoadFromFile(DBGrid3.DataSource.DataSet.FieldByName('dcimage').AsString);
end;
end.
图像不显示啊