prooption.pas

Delphi图像盖章程序源码,供大家参考。

unit ProOption;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons;



type
  TOption = class(TForm)
    Panel2: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Image2: TImage;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label5: TLabel;
    ComboBox2: TComboBox;
    procedure Label3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TabSheet2Show(Sender: TObject);
  private

  public
  end;

var
  Option: TOption;

implementation
USES T_Course,T_File,shellapi,StepMain;
{$R *.dfm}

procedure TOption.Label3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TOption.TabSheet2Show(Sender: TObject);
begin
ComboBox2.ItemIndex:=0;
ComboBox2.text:=ComboBox2.Items[ComboBox2.ItemIndex];
mainF.MReadPoint('9');
edit2.Text:=inttostr(GProOption.Point_top.x)+','+inttostr(GProOption.Point_top.y);
edit3.Text:=inttostr(GProOption.Point_bott.X)+','+inttostr(GProOption.Point_bott.Y);
end;

end.