?? 列表5.8.txt
字號:
【列表5.8】CrashTestDummy程序代碼。
{
frmDummy - A simple program used by other demo programs for
display and destruction...
}
unit frmDummy;
interface
uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, Libc,
QStdCtrls, QExtCtrls;
type
TDummyForm = class(TForm)
Panell: TPanel;
ExitBtn: TButton:
DummyLabel: TLabel:
procedure ExitBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DummyForm: TDummyForm;
Implementation
{SR *.xfm}
procedure TDummyForm. ExitBtnClick(Sender: TObject);
begin
Close;
end;
procedure TDummyForm. FormActivate(Sender: TObject);
begin
DummyLabel.Caption := 'Process ID: ' + IntToStr(getpid);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -