?? mess.pas
字號:
unit mess;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls;
type
Tf_mess = class(TForm)
Panel: TPanel;
ShowMess: TLabel;
compper: TProgressBar;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
f_mess: Tf_mess;
implementation
uses Faxconv;
{$R *.DFM}
procedure Tf_mess.FormShow(Sender: TObject);
begin
// ShowMess.Left:=trunc((Panel.Width-ShowMess.Width)/2);
//f_mess.Left:=FaxConversionForm.Left+trunc((FaxConversionForm.Width-f_mess.Width)/2);
// f_mess.Top:=FaxConversionForm.Top+trunc((FaxConversionForm.Height-f_mess.Height)/2);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -