Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #6  
Старый 23.03.2012, 08:43
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

exe:
Код:
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CB(Sender: TObject);
  end;

function ShowForm(Sender: TNotifyEvent): Integer; external 'Project2.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowForm(CB);
end;

procedure TForm1.CB(Sender: TObject);
begin
  ShowMessage(TEdit(TForm(Sender).FindComponent('Edit1')).Text);
end;

dll:
Код:
library Project2;

uses
  Forms,
  SysUtils,
  Classes,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

function ShowForm(Sender: TNotifyEvent): Integer;
begin
  Form2:=TForm2.Create(Application);
  Form2.CB:=Sender;
  Result:=Form2.ShowModal;
  Form2.Free;
end;

exports
  ShowForm;

begin
end.

dll form:
Код:
type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    CB: TNotifyEvent;
  end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  CB(Self);
end;
Вложения
Тип файла: rar Project.dll.rar (3.1 Кбайт, 30 просмотров)
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Voron (23.03.2012)
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:49.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025