Delphi, требуется подсказка

[Spike]

2Magister
Установлено в свойствах при Design Time
Беру дебагер, буду вычисляеть Width, искать где косяк....

Нашел.
Сам сохраняю положение окна в ини. Как не выставляй, все равно старое значение загрузится =))))))
Да уж...

[Anthony Fox]

Народ, предлагаю следующее:

Файл проекта:

Код: выделить все

program helloworld;

uses
 Forms,
 main in 'main.pas' {FormMain},
 options in 'options.pas' {FormOptions},

{$R *.res}

begin
 Application.Initialize;
 Application.Title := 'hello';
 Application.CreateForm(TFormMain, FormMain);
 Application.CreateForm(TFormOptions, FormOptions);
 Application.Run;
end.


код из TFormMain

Код: выделить все

procedure TFormMain.FormShow(Sender: TObject);
begin
// Пиши сюда свой код
end;


Вот так все должно работать, причем можешь обращаться как и к FormMain, так и к FormOptions, не проверяя созданы они или нет (к этому моменту все формы будут созданы, а FormMain - будет главной формой).

[Spike]

2Anthony Fox
thx
2All
Продожаем работать

Такой код почему-то не меняет Caption у формы FormCheckConnect, вместо этого он изчезает совсем.
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->if FormMain.idSMTP1.Authenticate then
      begin
        FormCheckConnect.memo1.lines.add('Пользователь идентифицирован');
        FormCheckConnect.Caption := 'Проверка пройдена';
      end;
      except
        FormCheckConnect.memo1.lines.add('Нет соединения');
        FormCheckConnect.Caption := 'Ошибка проверки';
end;<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->

[Magister]

2Spike Lee
а к чему тут except, чё то я не въехал ?

[Spike]

2Magister
трай пропущен, он выше, код не весь:-)
Ctrl+С кусок

[Magister]

2Spike Lee
Дык может он где-то выше исчезает?

[Spike]

2Magister
Да сомнения у меня, негде ей выше изчезать вроде...

[Spike]

Помнишь я в ирке по header говорил? Блин, оказалось что Unit два раза было в модуле написано. ######!!!! Идиоцкая ошибка!