Событие OnAfterFormShow -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [44.192.95.161]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Событие OnAfterFormShow

Jiro

Сообщ. #1 , 27.07.24, 09:03

Member

Профиль · PM

Рейтинг (т): 3

Появилась необходимость в событии OnAfterFormShow, и я это реализовал вот так:

unit MainFormUnt;

interface

uses

Winapi.Windows,

Winapi.Messages,

System.SysUtils,

System.Classes,

Vcl.Controls,

Vcl.Forms,

Vcl.StdCtrls;

const

WM_AFTER_SHOW = WM_USER + 331 ;

type

TFormX = class(TForm)

private

FOnAfterShow: TNotifyEvent;

FOnShowBackUp: TNotifyEvent;

procedure DoFormShow(Sender: TObject);

procedure DoAfterShow( var aMessage : TMessage ); message WM_AFTER_SHOW;

public

constructor Create(AOwner: TComponent); override;

property OnAfterShow: TNotifyEvent read FOnAfterShow write FOnAfterShow;

end;

TForm = class(TFormX);

TMainForm = class(TForm)

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormAfterShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

{$R *.dfm}

{$REGION ' TFormX '}

procedure TFormX.DoAfterShow( var aMessage : TMessage );

begin

if Assigned(FOnAfterShow) then FOnAfterShow(Self);

end;

procedure TFormX.DoFormShow(Sender: TObject);

begin

Inherited;

if Assigned(FOnShowBackUp) then FOnShowBackUp(self);

OnShow := FOnShowBackUp;

PostMessage( Handle, WM_AFTER_SHOW, 0 , 0 ); // This will post a message to itself

end;

constructor TFormX.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FOnShowBackUp := OnShow;

OnShow := DoFormShow;

end;

{$ENDREGION}

procedure TMainForm.FormShow(Sender: TObject);

begin

Memo1.Lines.Add('on show' );

end;

procedure TMainForm.FormAfterShow(Sender: TObject);

begin

Memo1.Lines.Add('on after show' );

end;

procedure TMainForm.FormCreate(Sender: TObject);

begin

OnAfterShow := FormAfterShow;

end;

end.

Всё вроде работает, но на всякий случай хочу спросить, нет ли в такой реализации каких-то подводных граблей ?

Сообщение отредактировано: Jiro - 27.07.24, 09:04

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0186 ] [ 16 queries used ] [ Generated: 13.10.24, 22:06 GMT ]