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

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

Почему методы рисования Delphi (например MoveTo и LineTo) рисуют на один пиксел короче?

Вопрос:

Почему методы рисования Delphi (например MoveTo и LineTo) рисуют на один пиксел короче?

Ответ:

Так работает большинство
графических систем, включая Windows. Библиотека VCL просто передает вызовы в
функции GDI. Если Вы хотите нарисовать линию с последним пикселом включительно
просто добавте единицу к координатам.

Можно ли отключить определенный элемент в RadioGroup?

Вопрос:
Можно ли отключить определенный элемент в RadioGroup?
Ответ:
В примере показано как получить доступ к отдельным элементам компонента TRadioGroup.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	TRadioButton(RadioGroup1.Controls[1]). Enabled := False;
end;

Как программно “щелкнуть” по компоненту speed button ?

Вопрос:

Как программно “щелкнуть” по компоненту speed button? Я пытался использовать SendMessage но у Speedbuttons нет “handle”.

Ответ: В примере используется метод Perform класса TControl для отправки сообщения. Прочитать остальную часть записи »

Можно ли динамически менять

Вопрос:

Можно ли динамически менять какая форма считается главной в приложении во время работы программы?

Ответ:

Можно, но только во время
загрузки приложения. Чтобы сделать это выберите “View->Project Source” и измените
код инициализации приложения, так что порядок создания форм зависил от какого-то
условия. Прочитать остальную часть записи »

Как очистить содержимое Canvas’а?

Вопрос:
Как очистить содержимое Canvas'а?

Ответ:

Просто нарисуйте прямоугольник любого цвета.

Пример:

Canvas.Brush.Color := ClWhite;
Canvas.FillRect(Canvas.ClipRect);