Показать сообщение отдельно
  #19  
Старый 26.07.2008, 17:26
YERokez YERokez вне форума
Прохожий
 
Регистрация: 27.10.2007
Сообщения: 22
Репутация: 10
По умолчанию

Все очень просто. Надо вместо стандартного метода Create для формы использовать конструктор в который можно передавать параметры.
Код:
unit Form1_PAS;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls, Mask, DBCtrls,ADODB,
  Buttons, Grids, DBGrids, Db, DBClient,Variants,
  DBCtrlsEh, DBGridEh;

type
  TF_Form1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
      Constructor CreateMe (p_Param1: String; p_Param2:Boolean);
  public
    { Public declarations }

implementation

USES ....;
{$R *.DFM}
//********************************************************
//********************************************************
Constructor TF_Form1.CreateMe(p_Param1:string; p_Param2:Boolean);
begin
    Inherited Create(Application);
 ...........
End;
//********************************************************
//********************************************************
Ответить с цитированием