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

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'ов".

type TMyTabbedNotebook = class(TTabbedNotebook); //это наш "class cracer"

type TMyNotebook = class(TNotebook);

procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

begin

 with TabbedNotebook1 do //вызываем защищенный метод родительского класса

  TMyTabbedNotebook(TWinControl(Pages.Objects[PageIndex])).DestroyHandle;

end;

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

begin

 with Notebook1 do //вызываем защищенный метод родительского класса

  TMyNotebook(TWinControl(Pages.Objects[PageIndex])).DestroyHandle;

 NoteBook1.PageIndex := NewTab;

 AllowChange := true

end;

Вопрос:

Функция keybd_event() принимает значения до 244 — как мне отправить нажатие клавиши с кодом #255 в элемент управления Windows?

Ответ:

Это может понадобится для иностранных языков или для специальных символов. (например, в русских шрифтах символ с кодом #255 — я прописное). Приведенный в примере метод не стоит использовать в случае, если символ может быть передан обычным способом (функцией keybd_event()).

procedure TForm1.Button1Click(Sender: TObject);

var KeyData : packed record

 RepeatCount : word;

 ScanCode : byte;

 Bits : byte;

end;

begin

 {Let the button repaint}

 Application.ProcessMessages;

 {Set the focus to the window}

 Edit1.SetFocus;

 {Send a right so the char is added to the end of the line}