Обращение к компонентам формы

@hppnd · Регистрация: 27.05.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер, господа форумчане .

Суть проблемы кратко : Задача состоит в том , что бы написать дллку , которая вызывает немодальное окно в котором будет отображаться результат какой-либо операции ( в моем случае это норма вектора ).
Возник вопрос , как из процедур не относящихся к форме обратится к компонентам формы ?

Мой код :

Delphi

unit DLLForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    procedure FormDestroy(Sender: TObject);
  private
  public
  end;
 
function ShowWindow(AHandle:THandle;ACaption:String):LongInt;stdcall;
procedure Vector(a:array of Integer; n:Integer);stdcall;
 
 
implementation
 
{$R *.dfm}
 
function ShowWindow(AHandle:THandle;ACaption:String):LongInt;
var Form1:TForm;
  begin
   Application.Handle:=AHandle;
   Form1:=TForm.Create(Application);
   Result:=LongInt(TForm1);
   Form1.Caption:=ACaption;
   Form1.Show;
  end;
 
procedure Vector(a:array of Integer;n:integer);
var s,i:Integer;
    lbl2: TLabel;
  begin
     s:=0;
     for i:=1 to n do
      s:=s+a[i];
  end;
 
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 Free;
 Close;
end;
 
end.

При попытке прямого обращения ( допустим к компоненте label ) :

Delphi

procedure Vector(a:array of Integer;n:integer);
var s,i:Integer;
    lbl2: TLabel;
  begin
     s:=0;
     for i:=1 to n do
      s:=s+a[i];
      lbl2.Caption:=IntToStr(s);
  end;

Выбивает :
[Warning] DLLForm.pas(43): Variable 'lbl2' might not have been initialized

Господа , как же обратиться к label'у ?

@cotseec · 27.04.2013, 19:21

Delphi

1	var Form1:TForm;

делай глобальной для всей dll, обращайся так:

Delphi

1	Form1.lbl1.Caption:=IntToStr(s);

еще лучше перед обращением проверить, существует ли Form1, т.е.

Delphi

1	if Assigned(Form1) then....

@hppnd · 27.04.2013, 19:23 **[ТС]**

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

Delphi

1	var Form1:TForm;

делай глобальной для всей dll, обращайся так:

Delphi

1	Form1.lbl1.Caption:=IntToStr(s);

еще лучше перед обращением проверить, существует ли Form1, т.е.

Delphi

1	if Assigned(Form1) then....

При

Delphi

1	Form1.lbl2.caption:=IntToStr(s);

Выбивает [Error] DLLForm.pas(43): Undeclared identifier: 'Form1'
Такая попытка уже была.

@cotseec · 27.04.2013, 19:31

судя по этому

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

Undeclared identifier: 'Form1'

это даже не читал

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

делай глобальной для всей dll

Добавлено через 1 минуту
соответственно локальное объявление формы и лейбла необходимо убрать

@hppnd · 27.04.2013, 19:35 **[ТС]**

cotseec, похоже я Вас не правильно понимаю
попробую разобраться

@cotseec · 27.04.2013, 19:52

то ли лыжи не едут, то ли я... попробовал в Delphi - не получается......

Как вызвать форму из DLL

Добавлено через 5 минут
все нормально, была в коде ошибка синтаксиса, вот код

Кликните здесь для просмотра всего текста

Delphi

unit DLLForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    procedure FormDestroy(Sender: TObject);
  private
  public
  end;
 
var Form1:TForm1;
 
function ShowWindow(AHandle:THandle;ACaption:String):LongInt;stdcall;
procedure Vector(a:array of Integer; n:Integer);stdcall;
 
 
implementation
 
{$R *.dfm}
 
function ShowWindow(AHandle:THandle;ACaption:String):LongInt;
 
  begin
   Application.Handle:=AHandle;
   Form1:=TForm1.Create(Application);
   Result:=LongInt(TForm1);
   Form1.Caption:=ACaption;
   Form1.Show;
  end;
 
procedure Vector(a:array of Integer;n:integer);
var s,i:Integer;
  begin
     s:=0;
     for i:=1 to n do
      s:=s+a[i];
     Form1.lbl1.Caption:=IntToStr(s);
  end;
 
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 Free;
 Close;
end;
 
end.

вот тут

Delphi

1 2	Application.Handle:=AHandle; Form1:=TForm.Create(Application);

необходимо создавать потомка TForm1, а не TForm

@hppnd · 27.04.2013, 20:35 **[ТС]**

cotseec, Спасибо , исправил.
Он вроде-бы не ругается на

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

Form1.lbl2.caption:=IntToStr(s);

Но при запуске программы выдает

В чем может быть проблема , учитывая что если закомментить

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

Form1.lbl2.caption:=IntToStr(s);

то все работает нормально (результат конечно-же не выдает)

@cotseec · 27.04.2013, 21:02

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

В чем может быть проблема , учитывая что если закомментить

форма уже создана перед обращением к процедуре Vector?
если точку останова на строку

Delphi

1	Form1.lbl2.caption:=IntToStr(s);

, какое значение дает Form1?
думаю будет проще, если посмотреть весь проект

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	27.04.2013, 19:31	4
	судя по этому Сообщение от hppnd Undeclared identifier: 'Form1' это даже не читал Сообщение от cotseec делай глобальной для всей dll Добавлено через 1 минуту соответственно локальное объявление формы и лейбла необходимо убрать 1

@hppnd 1 / 1 / 0 Регистрация: 27.05.2012 Сообщений: 19
	27.04.2013, 19:35 [ТС]	5
	cotseec, похоже я Вас не правильно понимаю попробую разобраться 0

@hppnd 1 / 1 / 0 Регистрация: 27.05.2012 Сообщений: 19
	27.04.2013, 20:35 [ТС]	7
	cotseec, Спасибо , исправил. Он вроде-бы не ругается на Сообщение от hppnd Form1.lbl2.caption:=IntToStr(s); Но при запуске программы выдает В чем может быть проблема , учитывая что если закомментить Сообщение от hppnd Form1.lbl2.caption:=IntToStr(s); то все работает нормально (результат конечно-же не выдает) Миниатюры 0