Читать «Виртуальная библиотека Delphi» онлайн - страница 176

implementation

{$R *.DFM}

procedure TForm1.WMSysCommand;

begin

 if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then MessageBeep(0)

 else inherited;

end;

Вопрос:

Можно ли сделать так — одна форма показывает другую и остается позади нее, но фокус ввода не переходит к новой форме, а остается у старой?

Ответ:

В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей не передается.

Пример:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);

begin

 Form2 := TForm2.Create(Application);

 Form2.Visible := FALSE;

 ShowWindow(Form2.Handle, SW_SHOWNA);

end;

Вопрос:

На некоторых laptop компьютерах может не быть флоппи дисковода. Можно ли удалять из списка TDriveComboBox диски которые отключены?

Ответ:

В примере TDriveComboBox не показывает дисководы, которые не готовы. (not ready). Учтите что на многих компьютерах будет ощутимая задержка при поверке plug&play флоппи дисковода.

Пример:

procedure TForm1.FormCreate(Sender: TObject);

var

 i : integer;

 OldErrorMode : Word;

 OldDirectory : string;

begin

 OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);

 GetDir(0, OldDirectory);

 i := 0;

 while i <= DriveComboBox1.Items.Count - 1 do begin

  {$I-}

  ChDir(DriveComboBox1.Items[i][1] + ':\');

  {$I+}

  if IoResult <> 0 then DriveComboBox1.Items.Delete(i)

  else inc(i);

 end;

 ChDir(OldDirectory);

 SetErrorMode(OldErrorMode);

end;

Вопрос:

Как сообщить всем формам моего приложения (в том числе и не видимым в данный момент) об изменении каких-то глобальных значений?

Ответ:

Один из способов — создать пользовательское сообщение и использовать метод preform чтобы разослать его всем формам из массива Screen.Forms.

Пример:

{Code for Unit1}

const UM_MyGlobalMessage = WM_USER + 1;

type TForm1 = class(TForm)

 Label1: TLabel;

 Button1: TButton;

 procedure FormShow(Sender: TObject);

 procedure Button1Click(Sender: TObject);

private

 {Private declarations}

 procedure UMMyGlobalMessage(var AMessage: TMessage); message UM_MyGlobalMessage;

public

 {Public declarations}

end;

var Form1: TForm1;

implementation

{$R *.DFM}

uses Unit2;

procedure TForm1.FormShow(Sender: TObject);

begin

 Form2.Show;

end;

procedure TForm1.UMMyGlobalMessage(var AMessage: TMessage);

begin

 Label1.Left := AMessage.WParam;

 Label1.Top := AMessage.LParam;

 Form1.Caption := 'Got It!';

end;

procedure TForm1.Button1Click(Sender: TObject);

var f: integer;

begin

 for f := 0 to Screen.FormCount - 1 do Screen.Forms[f].Perform(UM_MyGlobalMessage, 42, 42);

end;