Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Внизвывести окно Найти похожие ветки
← →
ligor (2002-10-21 21:12) [0]Вывести окно после появления основной формы
Create Show Activate не подходят т к происходят до появления
основного окна, вопрос где вставить вызов модального окошка
← →
TTCustomDelphiMaster (2002-10-21 21:35) [1]Application.OnIdle
Form.OnActivate;
← →
ligor (2002-10-21 21:39) [2]а для тупых поподробнее если можно
← →
TTCustomDelphiMaster (2002-10-21 22:01) [3]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 22:20) [4]Спасибо
← →
TTCustomDelphiMaster (2002-10-21 22:25) [5]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:29) [6]Ну понял уже понял
Все равно спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c