
26.07.2008, 17:26
|
Прохожий
|
|
Регистрация: 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;
//********************************************************
//********************************************************
|