Мой DELPHI – Программирование

Всё для программера

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

Вопрос:
Можно ли сделать так - одна форма показывает другую и остается позади нее, но фокус
ввода не переходит к новой форме, а остается у старой?
Ответ:
В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей
не передается.

Пример:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
	Form2 := TForm2.Create(Application);
	Form2.Visible := FALSE;
	ShowWindow(Form2.Handle, SW_SHOWNA);
end;

Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени?

Вопрос:
Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени?

Ответ:

В приведенном примере
показано как определить нажата ли клавиша Shift при выборе строчки меню. Пример
также содержит функции проверки состояния клавиш Alt, Ctrl. Прочитать остальную часть записи »

Как создать bitmap из пиктогрммы (icon)?

Вопрос:
Как создать bitmap из пиктогрммы (icon)?
Ответ:
Используя Bitmap.Canvas.Draw нарисуйте пиктограмму на Bitmap'е.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
	TheIcon : TIcon;
	TheBitmap : TBitmap;
begin
		TheIcon := TIcon.Create;
		TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
		TheBitmap := TBitmap.Create;
		TheBitmap.Height := TheIcon.Height;
		TheBitmap.Width := TheIcon.Width;
		TheBitmap.Canvas.Draw(0, 0, TheIcon);
		Form1.Canvas.Draw(10, 10, TheBitmap);
		TheBitmap.Free;
		TheIcon.Free;
	end;

Как перехватить нажатия функциональных клавиш и стрелок?

Вопрос:
Как перехватить нажатия функциональных клавиш и стрелок?

Ответ:

Проверяйте значение переменной
key на равенство VK_RIGHT, VK_LEFT, VK_F1 и т.д. на событии KeyDown формы.

Пример:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
	if Key = VK_RIGHT then
		Form1.Caption := 'Right';
	if Key = VK_F1 then
		Form1.Caption := 'F1';
end;

Урок 4: Обзор Палитры Компонент

Урок 4: Обзор Палитры Компонент

  1. ОБЗОР
  2. В данной статье дается обзор стандартных и дополнительных компонент
    из Палитры Компонент Delphi (стр. Standard и Additional), страницы диалогов
    (Dialogs), системных компонент (стр. System), страницы объектов в формате
    Visual Basic (VBX). Компоненты, осуществляющие доступ к данным и отображение
    их на экране будут рассматриваться позднее.

  3. Стандартные компоненты
  4. С компонентами, расположенными на первой странице Палитры Компонент
    Вы могли ознакомиться в Уроке № 2.

    На первой странице Палитры Компонент размещены 14 объектов (рис.8)
    определенно важных для использования. Мало кто обойдется длительное время
    без кнопок, списков, окон ввода и т.д. Все эти объекты такая же часть Windows,
    как мышь или окно.

    Набор и порядок компонент на каждой странице являются конфигурируемыми.
    Так, Вы можете добавить к имеющимся компонентам новые, изменить их количество
    и порядок. Это можно сделать, вызвав всплывающее меню (нажать правую кнопку
    мыши, когда указатель над Палитрой).

    Рис.8: Компоненты, расположенные
    на первой странице Палитры.
    Прочитать остальную часть записи »