[Danik007]

Здравствуйте!
Вопрос собственно в названии темы. Как можно создать, какими методами, какие функции надо использовать при создании формы?
Необходимо чтоб на форме был лишь Canvas и у формы не было бордера.
Буду благодарен за любую помощь! Поиск использовал, но он не дал результатов.

[Ultras]

Код:

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, но это уже сложнее...

[Danik007]

Спасибо за код!
Только у меня есть несколько вопросов:

1. Не удается задать положение окна, мне кажется это из-за ShowModal, как можно поправить?
2. Как пометить на окно Canvas или другие елементы типо кнопок/лейбалов?

[NIch]

Канвас на окне уже есть, а точнее канвас есть на любом элементе...
Создавай все элементы динамически, но указывай хозяина их...
Как то так...

Код:

Butto1 := TButton.Create(self);
Butto1.Width := ...;
Butto1.Height := ...;
Butto1.Left := ...;
Butto1.Top := ...;
Butto1.Parent := Form1;

Полюби Гугл)))
http://www.realcoding.net/article/view/290

[Danik007]

Спасибо за помощь!
А что относительно моего первого вопроса? Как задать положение окна?

[Kotofff]

Код:

  with MainForm do
  try
    ...
    Position := poDesigned; // теперь можно менять положение формы
    ...
    ShowModal;