DLL b свойства формы ???

[spamer]

Народ подскажите как в DLL обратиться к свойствам формы, например к ее Высоте или Ширине???

Вот писал DLL, но оно чето не пашет, ругается, мол не знает что такое Width, Height,Top, Left.

library Project1;

uses
  SysUtils,
  Classes,
  inifiles;
{$R *.res}
procedure WriteINI(); stdcall;
var
    FileIni:TIniFile;
begin
FileIni:=TIniFile.Create('C:\Documents and Settings\Admin\Рабочий стол\Работа с INI файлами\MyINI.ini');
FileIni.WriteInteger('Window','Width',Width);
FileIni.WriteInteger('Window','Height',Height);
FileIni.WriteInteger('Window','Top',Top);
FileIni.WriteInteger('Window','Left',Left);
FileIni.Free;
end;

procedure ReadINI(); stdcall;
var
    FileIni:TIniFile;
begin
FileIni:=TIniFile.Create('C:\Documents and Settings\Admin\Рабочий стол\Работа с INI файлами\MyINI.ini');
Width:=FileIni.ReadInteger('Window','Width',Width);
Height:=FileIni.ReadInteger('Window','Height',Height);
Top:=FileIni.ReadInteger('Window','Top',Top);
Left:=FileIni.ReadInteger('Window','Left',Left);
FileIni.Free;
end;

exports
  WriteINI;
  ReadINI;
begin
end.

[]Wowan[]

Ну правильно откуда ему их знать. передай в ReadINI имя формы, а в этой процедуре используй его и свойства Left, top и др.

[lexaltd]

Мне кажется что в uses надо объявить Forms
И обращатся типа Form1.Width := FileIni.ReadInteger('Window','Width ',Form1.Width);
И записывать FileIni.WriteInteger('Window','Widt h',Form1.Width);

[spamer]

Сообщение от ]Wowan[

Ну правильно откуда ему их знать. передай в ReadINI имя формы, а в этой процедуре используй его и свойства Left, top и др.

Пишу следующее
procedure WriteINI(Form1 : TForm); stdcall;
Оно не работает. Можешь пример написать, как передать правильно???

[spamer]

Сообщение от lexaltd

Мне кажется что в uses надо объявить Forms
И обращатся типа Form1.Width := FileIni.ReadInteger('Window','Width ',Width);

Нет, так я пробовал - оно вообще даже не знает что такое Form1 .

[]Wowan[]

Пардон за предадущий пост, не правильно выразился, передай в переменной дескриптор формы, потом используй процедуру WinApi
SetWindowsPos, она те сразу размер и положение установит.Есть вопросы иди в асю.

[spamer]

Сообщение от ]Wowan[

Пардон за предадущий пост, не правильно выразился, передай в переменной дескриптор формы, потом используй процедуру WinApi
SetWindowsPos, она те сразу размер и положение установит.Есть вопросы иди в асю.

Но мене надо не только с размером и расположением работать. Например как тогда обратиться к свойству Color ???

[]Wowan[]

Вот пример ↓

[StartMis]

в uses пропиши Unit1; и будет тогда знать что такое Form

[lexaltd]

// Если форма не в DLL 
procedure ReadINI(x,x1,x2,x3:integer); stdcall;
var
    FileIni:TIniFile;
begin
FileIni:=TIniFile.Create('C:\Documents and Settings\Admin\Рабочий стол\Работа с INI файлами\MyINI.ini');
x:=FileIni.ReadInteger('Window','Width',x);
x1:=FileIni.ReadInteger('Window','Height',x1);
x2:=FileIni.ReadInteger('Window','Top',x2);
x3:=FileIni.ReadInteger('Window','Left',x3);
FileIni.Free;
end;
{где
x = Width
x1 = Height
и т.д
так же и к другой процедуре
и к Color
}