Application.Run

← →
Три корочки (2006-01-31 09:34) [0]

Почему он не срабатывает?

program TestEditor;

uses
Forms,
//TestEditorFirst in "TestEditorFirst.pas" {fFirst},
//UnitKucha in "UnitKucha.pas",
//uffs in "uffs.pas" {ffs},
umainte in "umainte.pas" {fmainte},
sysutils,
qforms,
controls//,
//ufreg in "ufreg.pas" {freg}
;

{$R *.res}
//var wxp:twxp;i:integer;b:boolean;
begin
Application.Initialize;
Application.Title := "Ðåäàêòîð òåñòîâ";
Application.CreateForm(Tfmainte, fmainte);
{b:=isfirststart;
if b then
begin
if not FirstStart then
halt;
end;
if isreg then
regmsg;
Application.CreateForm(TfFirst,fFirst);
LoadWXP(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+
"options.txt",wxp);
for i:=1 to wxp.ledcount do fFirst.ListBox1.Items.Add(wxp.led[i]);
if wxp.ledcount=0 then fFirst.Bbok.enabled:=false
else fFirst.listbox1.ItemIndex:=0;
if ffirst.ShowModal=mrCancel then halt;
fmainte.left:=wxp.teleft;
fmainte.Top:=wxp.tetop;
fmainte.Width:=wxp.tewidth;
fmainte.height:=wxp.teheight;
wxp.lcht[0]:=fFirst.Caption;
fFirst.Free;
umainte.startproc(wxp.lcht[0]);}
//fmainte.visible:=True;
Application.Run;
end.
Даже хзакоментарил весь код, кроме стандартного но всё равно не работает...

← →
Digitman © (2006-01-31 09:40) [1]

> Почему он не срабатывает?

А как по-твоему он должен "срабатывать" ?

← →
КаПиБаРа © (2006-01-31 09:42) [2]

Отлаживать пробовал с помощью F7?

← →
Три корочки (2006-01-31 13:18) [3]

Делал по F7 все строки нормально проходит, доходит до application.run ,нажимаю f7 и он переходит на end.
А ведь должна появиться форма fmainte...

← →
Gero © (2006-01-31 13:20) [4]

> А ведь должна появиться форма fmainte...

Что происходит при создании формы?

← →
Три корочки (2006-01-31 13:21) [5]

..и программа завершится после её закрытия
а тут вообще на экране форма не появляется

← →
Digitman © (2006-01-31 13:22) [6]

> доходит до application.run

Ну и какого тогда хрена ты утверждаешь что "не срабатывает" ?

Трассируй метод Run - тогда поймешь свою "лажу" в ОСНОВНОЙ форме аппликации.

Или приводи ПОЛНЫЙ код осн.формы твоей аппликации. со всеми обработчиками всех св-в ..

← →
Три корочки (2006-01-31 13:23) [7]

> Что происходит при создании формы?

on_create ничего не происходит

unit umainte;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan;
procedure startproc(s:string);
type
Tfmainte = class(TForm)
XPManifest1: TXPManifest;
private
{ Private declarations }
public
{ Public declarations }
end;

var
fmainte: Tfmainte;

implementation

{$R *.dfm}
procedure startproc(s:string);
begin

fmainte.caption:="Ðåäàêòîð òåñòîâ - "+s;
{ *** hello!!! *** }
end;
end.

← →
Три корочки (2006-01-31 13:25) [8]

> Трассируй метод Run - тогда поймешь свою "лажу" в ОСНОВНОЙ
> форме аппликации.

я нажимаю а7 и он переходит на end.

← →
Digitman © (2006-01-31 13:29) [9]

Тогда переквалифицируйся в управдомы.
Или прочитай пару-тройку умных букварей по среде Делфи.

← →
Три корочки (2006-01-31 13:39) [10]

по любому же должно работать...

> Три корочки (31.01.06 13:39) [10]

ЧТО должно, по-твоему, работать ?

Прокомментируй, пож-та, свое видение логики работы сего метода ...

← →
Три корочки (2006-01-31 14:02) [12]

АБАЛДЕТЬ!!!
убрал qforms is uses и стало нормально...

← →
Три корочки (2006-01-31 14:04) [13]

> Прокомментируй, пож-та, свое видение логики работы сего
> метода ...

ну должна была появиться на экране fmainte - главная форма

> Три корочки (31.01.06 14:02) [12]
> АБАЛДЕТЬ!!!
> убрал qforms is uses и стало нормально

И чего здесь обалденного? Application имеется в обоих модулях Forms и QForms. Одна используется для VCL-программ другая для CLX. Ты добавляешь свою форму в Application для VCL, вызываешь Run из Application для CLX, в которой форм нет, поэтому выполнение программы заканчивается.

> Три корочки

Вот тебе и АБАЛДЕТЬ.

см. [14].

p.s.

О
Отладчик пользовать - оно правильно.

Application.Run Найти похожие ветки