FormCreate, ошибка Опции

[Tan]

У меня к вам следующий вопрос: я хочу, чтобы перед запуском основной формы, показалась другая, которая предоставит информацию о программе; реализую я это следующим образом :

procedure TForm1.FormCreate(Sender: TObject);
begin
With TForm2 do
  begin
    Showmodal;
    //...
end;

На что господа разработчики Borland Delphi 7.0 в лице своей программы мне ответили : This form of method call only allowed for class methods. Но ведь обе формы и есть классы ? Или именно в этом и проблема ?

Сообщение отредактировано: Tan - 29.04.2007 14:15

[volvo]

Но ведь обе формы и есть классы ?

Проблема не в этом... Проблема - в том, что ты пытаешься вызвать метод, как
{имя_типа_класса}.метод,
а надо -
{имя_экземпляра}.метод

Первый способ возможет только с class-methods, то есть методами, описанными вот в таком стиле:

class function Supports(Operation: string): Boolean; virtual;

, метод ShowModal описан по другому...

[Tan]

то есть это экземпляр ?

procedure TForm1.FormCreate(Sender: TObject);
var TForm2 : TForm;
begin
With TForm2 do
  begin
    Showmodal;
    //...
end;

Но в этом случае программа показывает основную форму.

Сообщение отредактировано: Tan - 29.04.2007 14:55

[volvo]

А вот так

TForm2 := TForm.Create(Self); // <--- Создавать кто будет?
try
  TForm2.ShowModal; 
finally 
  TForm2.Free;
end;

?

Сообщение отредактировано: volvo - 29.04.2007 15:01

[klem4]

я хочу, чтобы перед запуском основной формы, показалась другая, которая предоставит информацию о программе;

Может лучше юзать MessageDlg ?

[Tan]

Просто я хотел хелп написать, а Message dlg наверно маловат для этих целей, может есть что - то другое более подходящее для хелпа ?