|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Создание формы через консольное приложение.
Здравствуйте!
Вопрос собственно в названии темы. Как можно создать, какими методами, какие функции надо использовать при создании формы? Необходимо чтоб на форме был лишь Canvas и у формы не было бордера. Буду благодарен за любую помощь! Поиск использовал, но он не дал результатов. |
#2
|
||||
|
||||
Код:
program Project1; {$APPTYPE CONSOLE} uses Windows, Forms; var SH, SW: integer; MainForm: TForm; begin FreeConsole; // освободицца от консоли, оставить только форму, если нужно - закоментить SH := Screen.Height; SW := Screen.Width; MainForm := TForm.Create(nil); with MainForm do try BorderStyle := bsNone; // отключаем "бордер" Height := 390; Width := 390; Left := (SW - Width) div 2; Top := (SH - Height) div 2; Caption := 'Моя программа'; ShowModal; finally Free; end; end. P.S.: можно конечно пойти по другому пути, и создать форму через WinAPI, но это уже сложнее... Последний раз редактировалось Ultras, 24.02.2010 в 10:48. |
#3
|
||||
|
||||
Спасибо за код!
Только у меня есть несколько вопросов: 1. Не удается задать положение окна, мне кажется это из-за ShowModal, как можно поправить? 2. Как пометить на окно Canvas или другие елементы типо кнопок/лейбалов? |
#4
|
||||
|
||||
Канвас на окне уже есть, а точнее канвас есть на любом элементе...
Создавай все элементы динамически, но указывай хозяина их... Как то так... Код:
Butto1 := TButton.Create(self); Butto1.Width := ...; Butto1.Height := ...; Butto1.Left := ...; Butto1.Top := ...; Butto1.Parent := Form1; http://www.realcoding.net/article/view/290 В начале был Бит, потом Байт и только потом появилось Слово... |
#5
|
||||
|
||||
Спасибо за помощь!
А что относительно моего первого вопроса? Как задать положение окна? Последний раз редактировалось Danik007, 25.02.2010 в 18:07. |
#6
|
||||
|
||||
Код:
with MainForm do try ... Position := poDesigned; // теперь можно менять положение формы ... ShowModal; |