procedure TfmMain.CMEraseBkgnd(var Message:TWMEraseBkgnd);
begin
brush.style:=bsClear;
Inherited;
end;
编写程序的出口:
procedure TfmMain.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_Delete) and (Shift = [ssAlt, ssCtrl]) then
begin
dlgPassword.ShowModal;
if (dlgPassword.ModalResult = mrOk) then
Self.Close;
end;
//以下是紧急出口,调试时请不要注释
if (Key = VK_F10) then
begin
ShouldClose := true;
Self.Close;
end;
end;
procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ShouldClose then
Action := caFree
else
Action := caNone;
end;