|
DLL + TcxCheckListBox +TImageList + ImageIndex = Error
#39704391
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
При событию btn1Click
1.
lst1.Items[0].ImageIndex := 0;
ошибка Access violation at address 00000000
Проект
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
...
unit uApp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
procedure CreateMyForm(AppHandle: THandle); stdcall; external 'Form.dll';
procedure DestroyMyForm; stdcall; external 'Form.dll';
type
TForm1 = class(TForm)
btn1: TButton;
btn2: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
CreateMyForm(Application.Handle);
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
DestroyMyForm;
end;
end.
DLL проект
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
library Form;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};
exports
CreateMyForm,
DestroyMyForm;
end.
DLL unit
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
StdCtrls, ImgList, cxContainer, cxEdit, cxCheckListBox, ExtCtrls,
ComCtrls, cxTreeView;
type
TForm1 = class(TForm)
lst1: TcxCheckListBox;
btn1: TButton;
il1: TImageList;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure CreateMyForm(AppHandle: THandle); stdcall;
procedure DestroyMyForm; stdcall;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure CreateMyForm(AppHandle: THandle);
var
Bitmap :TBitmap;
begin
Application.Handle := AppHandle;
Form1 := TForm1.Create(Application);
Form1.Show
end;
procedure DestroyMyForm;
begin
Form1.Free;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
lst1.Items[0].ImageIndex := 0;
end;
end.
|
|
|
