Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Application.Run

Три корочки © (2006-01-31 09:34:00)
Почему он не срабатывает?

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 14:24:00) [1]

> Три корочки

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

см. [14].

p.s.

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

Плохиш (2006-01-31 14:16:00) [2]

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

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

Три корочки (2006-01-31 14:04:00) [3]

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

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

Три корочки (2006-01-31 14:02:00) [4]
АБАЛДЕТЬ!!!
убрал qforms is uses и стало нормально...

Digitman (2006-01-31 13:59:00) [5]

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

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

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

Три корочки (2006-01-31 13:39:00) [6]
по любому же должно работать...

Digitman (2006-01-31 13:29:00) [7]
Тогда переквалифицируйся в управдомы.
Или прочитай пару-тройку умных букварей по среде Делфи.

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

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

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

Три корочки (2006-01-31 13:23:00) [9]

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

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.

Digitman (2006-01-31 13:22:00) [10]

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

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

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

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

Три корочки (2006-01-31 13:21:00) [11]
..и программа завершится после её закрытия
а тут вообще на экране форма не появляется

Gero (2006-01-31 13:20:00) [12]
> А ведь должна появиться форма fmainte...

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

Три корочки (2006-01-31 13:18:00) [13]
Делал по F7 все строки нормально проходит, доходит до application.run ,нажимаю f7 и он переходит на end.
А ведь должна появиться форма fmainte...

КаПиБаРа (2006-01-31 09:42:00) [14]
Отлаживать пробовал с помощью F7?

Digitman (2006-01-31 09:40:00) [15]

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

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

Наверх

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