Читать «Виртуальная библиотека Delphi» онлайн - страница 103
Unknown
25. Каким образом можно поместить двумерный массив в TImage?
Представим, что данные находятся в массиве:
TestArray: array [0..127, 0..127] of Byte;
Картинка будет иметь размер 128×128 точек:
Image1.Picture.Bitmap.Width := 128;
Image1.Picture.Bitmap.Height := 128;
Вызываем функцию Windows API для формирования bitmap:
SetBitmapBits(Image1.Picture.Bitmap.Handle, SizeOf(TestArray), @TestArray);
Image1.Refresh;
Однако, если вы используете свою палитру, то ее нужно создавать специально.
26. Как из программы 'открыть' TComboBox?
У
Для открытия
ComboBox1.DroppedDown := True;
Естественно,
27. Как заменить надпись 'Read only' в компонентах TSaveDialog и TOpenDialog?
Попробуйте посмотреть в Windows API Help разделы, связанные с
28. Проблема в использовании компонента TCustomGrid.
Делаю так:
1. Создаю новый компонент при помощи Эксперта Компонент
2. Имя класса
3. Имя родителя
4. Использую страницу 'Samples'
5. Сохраняю модуль с именем CALSAMP.PAS
6. Подключаю к Палитре компонент
7. Создаю форму, помещаю новый компонент на форму и получаю Runtime Error 210 В чем дело?
Проблема в том, что
29. Как установить формат для поля таблицы?
В Fields Editor выберите поле для форматирования. Используя свойства
30. Можно ли использовать клавишу ENTER при вводе данных для перехода от поля к полю?
Используйте данный код для события
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
SelectNext(Sender as TWinControl, True, True);
Key := #0;
end;
end;
Теперь Enter ведет себя как Tab. Затем, выберите все объекты, которые должны вести себя как
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);