edittx.pas

网页特效生成工具！VCLSKIN的操作！

unit edittx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, OleCtrls, SHDocVw, DB, ADODB;

type
  Tfrmedittx = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    qryEdit: TADOQuery;
    dlgOpenweb: TOpenDialog;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmedittx: Tfrmedittx;

implementation

uses datalink;

{$R *.dfm}

procedure Tfrmedittx.FormCreate(Sender: TObject);
begin
Self.Left:=(Screen.DesktopWidth -Self.Width) div 2;
Self.Top:=(Screen.DesktopHeight -Self.Height) div 2;

end;

procedure Tfrmedittx.BitBtn2Click(Sender: TObject);
begin
Self.Close;
end;

procedure Tfrmedittx.PageControl1Change(Sender: TObject);
begin
if PageControl1.TabIndex =1 then
 begin
  Screen.Cursor:=crHourGlass;
  Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'temp.htm');
  WebBrowser1.Navigate (ExtractFilePath(Application.ExeName)+'temp.htm' );
  Screen.Cursor:=crDefault; 
 end;
end;

procedure Tfrmedittx.BitBtn1Click(Sender: TObject);
var i:Integer;
begin
i:=Application.MessageBox('确定要保存吗?','询问',MB_ICONQUESTION+MB_OKCANCEL);
if i=1 then
 begin
 //保存操作
 qryEdit.Refresh;
 qryEdit.Edit;
 qryEdit.FieldByName('code').AsString :=Memo1.Text;
 qryEdit.Post;
 Application.MessageBox('保存成功!','提示',MB_ICONINFORMATION+MB_OK); 
 end;
end;

procedure Tfrmedittx.BitBtn3Click(Sender: TObject);
begin
if  dlgOpenweb.Execute then
 begin
 Memo1.Lines.LoadFromFile(dlgOpenweb.FileName); 
 end;
end;

procedure Tfrmedittx.BitBtn4Click(Sender: TObject);
begin
Memo1.SelectAll;
Memo1.CopyToClipboard;
Application.MessageBox('特效成功的复制到了粘贴板!','提示',MB_ICONINFORMATION+MB_OK); 
end;
end.