Создание, закрытие и вызов форм

В каком порядке происходят события при создании и показе окна?

2017-08-10T14:54:01+07:00

При создании окна обработчики событий выполняются в следующем порядке:

OnCreate

OnShow

OnPaint

OnActivate

OnResize

OnPaint (снова)

Взято из FAQ Epsylon Technologies

Как заставить форму находиться всегда позади всех окон

2017-08-10T14:58:41+07:00

Code:

type

TForm1 = class(TForm)

procedure WndProc (var message: TMessage); override;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc (var message: TMessage);

begin

case message.Msg of

WM_WINDOWPOSCHANGING: PWindowPos(Message.LParam)^.hwndInsertAfter:=HWND_BOTTOM;

end;

inherited;

end;

Автор: antonn

Как использовать форму из DLL

2017-08-10T14:51:22+07:00

Code:

library Form;

uses

Classes,

Unit1 in 'Unit1.pas' {Form1};

exports

CreateMyForm,

DestroyMyForm;

end.

Подробнее...

Как сделать окно системно-модальным?

2017-08-10T14:52:43+07:00

Используйте функцию Windows API SetSysModalWindow(). Код ниже демонстрирует технологию работы с этой функцией. В любой момент времени может быть возможен только один модально-системны диалог, чей дескриптор возвращается функцией SetSysModalWindow(). Вам необходимо запомнить возвращаемую функцией величину для того, чтобы завершить показ диалога таким образом. Вот как примерно это должно выглядеть:

Подробнее...

Как сделать плавное закрытие окна ?

2017-08-10T14:56:52+07:00

Работает в 2k/XP:

Code:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

{©Drkb v.3(2007): www.drkb.ru}

begin

AnimateWindow(Handle, 500, AW_HIDE or AW_BLEND);

end;

Автор: p0s0l

Как сделать форму активной, Форма находится в DLL

2017-08-10T14:58:08+07:00

Code:

procedure ShowMainForm;

{©Drkb v.3www.drkb.ru}

var

hWnd, hCurWnd, dwThreadID, dwCurThreadID: THandle;

OldTimeOut: DWORD;

AResult: Boolean;

begin

ShowWindow(Application.Handle, SW_RESTORE);

Application.MainForm.Visible := True; // Показываем главную форму

// Ставим нашу форму впереди всех окон

hWnd := Application.Handle;

SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @OldTimeOut, 0);

SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(0), 0);

SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

hCurWnd := GetForegroundWindow;

AResult := False;

while not AResult do

begin

dwThreadID := GetCurrentThreadId;

dwCurThreadID := GetWindowThreadProcessId(hCurWnd);

AttachThreadInput(dwThreadID, dwCurThreadID, True);

AResult := SetForegroundWindow(hWnd);

AttachThreadInput(dwThreadID, dwCurThreadID, False);

end;

SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(OldTimeOut), 0);

end;

Как сделать, чтобы форма закрывалась при нажатии Esc?

2017-08-10T14:50:24+07:00

Для начала необходимо установить свойство формы KeyPreview в True. А потом уже можно отлавливать "Esc":

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.KeyPreview := True;

end;

procedure TForm1.FormKeyPress

(Sender: TObject; var Key: Char);

begin

if key = #27 then Close;

end;

Как создать и вызвать модальную форму?

2017-08-10T14:50:44+07:00

Code:

ModalForm := TModalForm.Create(Self);

try

ModalForm.ShowModal;

finally

ModalForm.Free;

end;

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

2017-08-10T14:52:17+07:00

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

Примечание: Вам придется редактировать этот код, если Вы добавите в приложение новые формы.

Code:

begin

Application.Initialize;

if < какое - то условие > then

begin

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

end

else

begin

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm1, Form1);

end;

end.

Application.Run;

Можно ли создать форму, которая получает дополнительные параметры в методе Сreate?

2017-08-10T14:53:09+07:00

Просто замените конструктор Create класса Вашей формы.

Code:

unit Unit2;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

TForm2 = class(TForm)

private

{Private declarations}

public

constructor CreateWithCaption(aOwner: TComponent; aCaption: string);

{Public declarations}

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

constructor TForm2.CreateWithCaption(aOwner: TComponent; aCaption: string);

begin

Create(aOwner);

Caption := aCaption;

end;

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);

begin

Unit2.Form2 := Unit2.TForm2.CreateWithCaption(Application, 'My Caption');

Unit2.Form2.Show;

end;

Необходимо, чтобы дочерняя форма не активизировала родительское окно

2017-08-10T14:54:45+07:00

Сделайте родительским окном рабочий стол.

Code:

procedure TForm2.CreateParams(VAR Params: TCreateParams);

begin

Inherited CreateParams(Params);

Params.WndParent := GetDesktopWindow;

end;

Рождение, жизнь и гибель формы.

2017-08-10T14:50:00+07:00

Перевод одноимённой статьи с сайта delphi.about.com )

В Windows основной элемент пользовательского интерфейса - форма. В Delphi каждый проект имеет по крайней мере одно окно - главное окно приложения. Все окна в Delphi основаны на объекте TForm. В данной статье мы рассмотрим основные события учавствующие в "жизни формы".

Подробнее...

Сворачивает все приложение при сворачивании неглавного окна

2017-08-10T15:00:58+07:00

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Сворачивает все приложение при сворачивании неглавного окна.

Обработчик сообщении. При попытке свернуть окно - сворачивает все приложение. Предназначен для неглавных немодальных окон.

Зависимости: Как у стандартной формы...

Автор: Vemer, Vemer@mail.ru, Петрозаводск

********************************************** }

//Пишем в Private формы(неглавной);

Procedure WMSysCommand(var message: TWMSysCommand); message WM_SysCommand;

//Пишем в тексте программы:

Procedure TF_Shop.WMSysCommand(var message: TWMSysCommand);

begin

If message.CmdType = SC_MINIMIZE then Application.Minimize

Else Inherited;

End;

Условие создания главной формы

2017-08-10T14:55:36+07:00

Существует ли в Delphi возможность создавать главную форму по условию? Я хочу использовать условие IF (в зависимости от передаваемого параметра) для того, чтобы определить какая форма будет главной при старте приложения. Фактически "другую" форму НЕ нужно будет загружать.

Хитрость здесь заключается в том, что мы предоставляем компилятору весь необходимый для создания форм код, но не допускаем его выполнения (IF FALSE THEN), при этом компилятор не ругается, а мы тем временем (во время выполнения приложения) выбираем и создаем главную форму. Вот пример кода, измененный .DPR-файл, который при старте случайным образом выбирает из друх форм главную:

Подробнее...

Форма изменяющая размеры без заголовка

2017-08-10T14:56:01+07:00

Форма изменяющая размеры без заголовка.

Нужно выставить свойство формы BorderStyle := bsNone;

Code:

type

TForm1 = class(TForm)

...

protected

procedure CreateParams(var Params: TCreateParams); override;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.Style := (Params.Style or WS_THICKFRAME);

end;

Автор feriman