Виртуальная библиотека Delphi

Edit1.SelLength := 0;

end;

Вопрос:

Как среагировать на минимизацию-максимизацию формы перед тем как произойдет изменение размера формы?

Ответ:

В примере перехватывается сообщение WM_SYSCOMMAND. Если это сообщение говорит о минимизации или максимизации формы — пищит динамик.

Пример:

type TForm1 = class(TForm)

private

{Private declarations}

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

public

{Public declarations}

end;

var Form1: TForm1;

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;

{Code for Unit2}

const UM_MyGlobalMessage = WM_USER + 1;

type TForm2 = class(TForm)

Label1: TLabel;

private

{Private declarations}

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

public

{Public declarations}

end;

var Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.UMMyGlobalMessage(var AMessage: TMessage);

begin

Label1.Left := AMessage.WParam;

Label1.Top := AMessage.LParam;

Form2.Caption := 'Got It!';

end;

Вопрос:

Как обновить список дисков компонента TDriveComboBox, учитывая, что могут быть подключены/отключены сетевые диски и произведена "горячая замена" plug&play дисков?

Ответ:

Следующий пример вызывает защищенный (protected) метод класса TDriveComboBox BuildList() для регенерации списка дисков. (использовая так наз. "class cracer")

Пример:

type TNewDriveComboBox = class(TDriveComboBox) //это наш "class cracer"

end;

procedure TForm1.Button1Click(Sender: TObject);

var Drive : char;

begin

Drive := DriveComboBox1.Drive;

TNewDriveComboBox(DriveComboBox1).BuildList; //вызываем защищенный метод родительского класса

DriveComboBox1.Drive := Drive;

end;

Вопрос:

Как программно заставить выпасть меню?

Ответ:

В примере показано как показать меню и выбрать в нем какой-то пункт, эмулируя нажатие "быстрой клавиши" пункта меню. Если у Вашего пункта меню нет "быстрой клавиши" Вы можете посылать комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно "путешествовать" по меню.

Пример:

procedure TForm1.Button1Click(Sender: TObject);

begin

//Allow button to finish painting in response to the click

Application.ProcessMessages;

{Alt Key Down}

keybd_Event(VK_MENU, 0, 0, 0);

{F Key Down - Drops the menu down}

keybd_Event(ord('F'), 0, 0, 0);

{F Key Up}

keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);

{Alt Key Up}

keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);

{F Key Down}

keybd_Event(ord('S'), 0, 0, 0);

{F Key Up}

keybd_Event(ord('S'), 0, KEYEVENTF_KEYUP, 0);

end;

Вопрос:

Как сделать клавишу-акселератор (keyboard shortcut) компоненту, у которого нет заголовка?

Ответ:

Возможный вариант — присвоить ссылку на этот компонент свойству FocusControl TLabel'а. В примере используется невидимый Label для создания "быстрой" клавиши (Alt+M) компонента Memo. Чтобы использовать пример, разместите на форме компонет TMemo, Label и несколько других компонентов, которые могут принимать фокус ввода. Запустите программу, перевидите фокус ввода куда-нибудь вне Memo и нажмите Alt+M — фокус ввода вернется в Memo.

Пример:

procedure TForm1.FormCreate(Sender: TObject);

begin

Label1.Visible := false;

Label1.Caption := '&M';

Label1.FocusControl := Memo1;

end;

Вопрос:

Можно ли как-то уменьшить мерцание при перерисовке компонента?

Ответ:

Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента — то фон компонента перерисовываться не будет.

Пример:

constructor TMyControl.Create;

begin

inherited;

ControlStyle := ControlStyle + [csOpaque];

end;

Вопрос:

Как запретить изменение размера моего компонента в design-time?

Ответ:

Поместите в конструктор компонента код, устанавливающий размеры по умолчанию. Переопределите метод SetBounds и проверяйте в нем "componentstate". Если компонет находится режиме "design-time" (csDesigning in ComponentState) просто передавайте значения ширины и высоты (width и heights) компонента по умолчанию (в нашем примере 50) методу класса-предка.

Пример:

procedure TVu.SetBounds(ALeft : integer; ATop : integer; AWidth : integer; AHeight : integer);

begin

if csdesigning in componentstate then begin

AWidth := 50;

AHeight := 50;

inherited; //вызываем унаследованный от предка метод

end;

end;

Вопрос:

Можно ли уменьшить потребляемые компонентами TNotebook и TTabbedNotebook ресурсы?

Ответ:

Да. Можно уничтожать обьекты, расположенные не на текущей странице TNotebook или TTabbedNotebook. В примере вызывается защищенный (Protected) метод путем создания так называемый "class cracer'ов".