| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

вывести окно [D6, Win95/98]

ligor ©   (2002-10-21 21:12:00) 

Вывести окно после появления основной формы
Create Show Activate не подходят т к происходят до появления
основного окна, вопрос где вставить вызов модального окошка

---

ligor   (2002-10-21 22:29:00) [1]

Ну понял уже понял
Все равно спасибо

---

TTCustomDelphiMaster   (2002-10-21 22:25:00) [2]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ApplicationEvents1: TApplicationEvents;
procedure FormActivate(Sender: TObject);
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
OnActivate := nil;
ShowMessage("так");
end;

procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
begin
Application.OnIdle := nil;
ShowMessage("Или");
end;

end.

---

ligor   (2002-10-21 22:20:00) [3]

Спасибо

---

TTCustomDelphiMaster   (2002-10-21 22:01:00) [4]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ApplicationEvents1: TApplicationEvents;
procedure FormActivate(Sender: TObject);
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f1, f2: boolean;
implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
if f1 then
begin
f1 := False;
ShowMessage("и поподробнее");
end;
end;

procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
begin
if f2 then
begin
f2 := False;
ShowMessage("Можно");
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
f1 := True;
f2 := True;
end;

end.

---

ligor   (2002-10-21 21:39:00) [5]

а для тупых поподробнее если можно

---

TTCustomDelphiMaster   (2002-10-21 21:35:00) [6]

Application.OnIdle
Form.OnActivate;

---

Наверх