Delphi控件源码

开发平台：

Delphi

Xt_ghjms.~pas：源码内容

							unit Xt_ghjms;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, TFlatSpeedButtonUnit, StdCtrls, DBCtrls,
  ExtCtrls, TFlatPanelUnit, ExtDlgs;
type
  TXt_ghjm = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    Label1: TLabel;
    Edit1: TEdit;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatButton1: TFlatButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatSpeedButton3: TFlatSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel1: TPanel;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Xt_ghjm: TXt_ghjm;
implementation
uses mainfrms;
{$R *.dfm}
procedure TXt_ghjm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;
procedure TXt_ghjm.FlatSpeedButton2Click(Sender: TObject);
begin
  mainfrm.Image1.Align:=alclient;
  mainfrm.Image1.Picture:=image1.Picture;
  close;
//  mainfrm.Image1.Picture.LoadFromFile(edit1.Text);
end;
procedure TXt_ghjm.FlatSpeedButton1Click(Sender: TObject);
begin
  if OpenPictureDialog1.execute then
   begin
     image1.picture.LoadFromFile(OpenPictureDialog1.filename);
   end;
end;
procedure TXt_ghjm.Edit1Change(Sender: TObject);
begin
     if OpenPictureDialog1.execute then
     begin
  // dbimage1.picture.LoadFromFile(OpenPictureDialog1.filename);
  // edit1.Text:=OpenPictureDialog1.FileName;
   end;
end;
procedure TXt_ghjm.FlatSpeedButton3Click(Sender: TObject);
begin
  close;
end;
procedure TXt_ghjm.FlatButton1Click(Sender: TObject);
begin
  mainfrm.Image1.Align:=alclient;
  mainfrm.Image1.Visible:=false;
end;
procedure TXt_ghjm.Image1DblClick(Sender: TObject);
begin
  if OpenPictureDialog1.execute then
   begin
     image1.picture.LoadFromFile(OpenPictureDialog1.filename);
   end;
end;
end.

						