свой Opendialog

← →
DnoProgrammer © (2011-11-17 00:36) [0]

задание такое написать подобие опен диалога унаследовав от ткомпонент.
застрял на создании метода execute. проблема в чем. форму с выбором файла я создал а вот вызвать ее во время вызова execute непонятно как. просто подключить юнит и вызвать form1.show/enabled не получается.подскажите как плз

← →
Германн © (2011-11-17 00:55) [1]

> DnoProgrammer © (17.11.11 00:36)
>
> задание такое написать подобие опен диалога унаследовав
> от ткомпонент.
> застрял на создании метода execute. проблема в чем. форму
> с выбором файла я создал а вот вызвать ее во время вызова
> execute непонятно как. просто подключить юнит и вызвать
> form1.show/enabled не получается.подскажите как плз

Код давай!

← →
DnoProgrammer © (2011-11-17 01:00) [2]

unit Component1;

interface

uses
SysUtils, Classes,unit1;

type
TOpenDial = class(TComponent)
private
{ Private declarations }
Name:string;
nFilter:string;
nKey:integer;
NumberList:integer;
cHistoryList:array [1..50] of string;
procedure AddHistoryList(cAdd:string);

protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy(); override;
function getFileName():string;
function getKey():integer;
procedure setFileName(cName:string);
procedure setKey(cKey:integer);
function getFilter():string;
procedure setFilter(cFilter:string);
Procedure Exec();
procedure getHistoryList();

published
{ Published declarations }
property FileName:string read getFileName write setFileName;
//property HistoryList:string read getHistoryList;
property Filter:string read getFilter write setFilter;
property Keyt:integer read getKey write setKey;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Dialogs", [TOpenDial]);
end;

function TOpenDial.getFileName():string;
begin
result:=Name;
end;

function TOpenDial.getKey():integer;
begin
result:=nKey;
end;

procedure TOpenDial.setFileName(cName:string);
begin
Name:=cName;
end;

procedure TOpenDial.setKey(cKey:integer);
begin
nKey:=cKey;
end;

function TOpenDial.getFilter():string;
begin
result:=nFilter;
end;

procedure TOpenDial.setFilter(cFilter:string);
begin
nFilter:=cFilter;
end;

constructor TOpenDial.Create(AOwner:TComponent);
begin
inherited;
end;

destructor TOpenDial.Destroy;
begin
inherited;
end;

procedure TOpenDial.AddHistoryList(cAdd:string);
begin
cHistoryList[NumberList]:=cAdd;
end;

Procedure TOpenDial.Exec();
begin
if (nkey>0) then
begin
Unit1.Form1.show; ///вот здесь вот как????
end;
end;

procedure TOpenDial.getHistoryList();
begin
//for i := 1 to NumberList do
// HistoryList[i];
end;

end.

еще код формы есть но там кода как такового нет потому что просто размещены файллистбоксы и т п.в этом коде он подключен как юнит 1.

← →
DnoProgrammer © (2011-11-17 01:17) [3]

еще оба этих юнита лежат в одном бпл файле

сделал бы:
окно создать самому
компоненты на нем тоже

if (nkey>0) then
begin
FMainForm := TForm.Create
FMainForm.св-ва := некие наши св-ва;
FMainForm.showmodal;
и ловить result показа
end;

свой Opendialog Найти похожие ветки