Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

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]

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


 
Digitman ©   (2006-01-31 13:59) [11]


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


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

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


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

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


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


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

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


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


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

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


 
Digitman ©   (2006-01-31 14:24) [15]


> Три корочки  


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

см. [14].

p.s.

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



Страницы: 1 вся ветка

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.054 c
2-1139040526
Julia
2006-02-04 11:08
2006.02.19
Как объявить тип TDateSetState?


2-1138607660
De
2006-01-30 10:54
2006.02.19
поясните


15-1138204596
Nic
2006-01-25 18:56
2006.02.19
Ну надо же :(


3-1135683626
WG
2005-12-27 14:40
2006.02.19
Corrupt MEMO/BLOB file - нет ли кода/утилитки для лечения ?


2-1138713343
Елизавета
2006-01-31 16:15
2006.02.19
Необходимо изменить содержимое файла. Как это сделать?