Форум: "Начинающим";
Текущий архив: 2012.02.26;
Скачать: [xml.tar.bz2];
Внизсвой 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]еще оба этих юнита лежат в одном бпл файле
← →
OW © (2011-11-17 09:35) [4]сделал бы:
окно создать самому
компоненты на нем тоже
if (nkey>0) then
begin
FMainForm := TForm.Create
FMainForm.св-ва := некие наши св-ва;
FMainForm.showmodal;
и ловить result показа
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.02.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c