plcdetail.pas

来自「一个用来管理PLC和工控点地址内容和具体功能的数据库软件!可用在工程的数据管理上」· PAS 代码 · 共 50 行

unit PLCdetail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SUIEdit, ExtCtrls, SUIForm, SUIImagePanel, SUIGroupBox;

type
  TForm2 = class(TForm)
    PLC: TsuiForm;
    suiGroupBox1: TsuiGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TsuiEdit;
    Edit2: TsuiEdit;
    Edit3: TsuiEdit;
    Edit4: TsuiEdit;
    Edit5: TsuiEdit;
    Edit6: TsuiEdit;
    Edit7: TsuiEdit;
    Edit8: TsuiEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowPos(FORM2.Handle,HWND_TOPMOST,FORM2.Left,FORM2.Top,
             FORM2.Width,FORM2.Height,0);
end;

end.