помогите разобраться

← →
Adios © (2006-09-11 21:58) [0]

function Icoshow(hint:string):string; Var New : Timage; ScrollBox1:tscrollbox; OnClickimage: TNotifyEvent; filelistbox1:tfilelistbox; Begin New:=Timage.Create(form1.ScrollBox1); new.Center:=true; new.Hint:=hint; new.Height:=32; new.Align:=altop; New.OnClick:=OnClickimage; new.Picture.Icon:=ic; new.Cursor:=crHandPoint; New.Parent:=form1.ScrollBox1; End; procedure TForm1.OnClickimage(Sender: TObject); begin form1.Caption:=TControl(Sender).Hint; end;
проект компилируется, но при нажатии на имидж вылетает ошибка, связанная с какими-то привилегиями, подскажите что не так?

← →
unknown © (2006-09-12 00:00) [1]

> Adios © (11.09.06 21:58)

Код приведен не полностью. В данном куске таких ошибок не наблюдается,
кроме подозрительного new.Picture.Icon:=ic;

← →
Думкин © (2006-09-12 08:02) [2]

> OnClickimage: TNotifyEvent;
> New.OnClick:=OnClickimage;

> procedure TForm1.OnClickimage(Sender: TObject);
> begin

Это зачем?

Не лучше ли убрать
OnClickimage: TNotifyEvent;

И вписать:

New.OnClick:= Form1.OnClickimage;

← →
Elen © (2006-09-12 08:21) [3]

> Adios ©

1. Поподробнее об ошибке...
2. Заремь и проверь CODE>new.Picture.Icon:=ic;

← →
Adios © (2006-09-12 10:32) [4]

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ShellCtrls, ExtCtrls, ShlObj, ComObj, ActiveX, shellapi, FileCtrl, Menus, masks; type TForm1 = class(TForm) ShellTreeView1: TShellTreeView; Button1: TButton; Edit1: TEdit; Bevel1: TBevel; Label1: TLabel; Edit2: TEdit; Label2: TLabel; Bevel2: TBevel; ShellTreeView2: TShellTreeView; Button2: TButton; Edit3: TEdit; Bevel3: TBevel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Bevel4: TBevel; Bevel5: TBevel; Bevel6: TBevel; Image1: TImage; PopupMenu1: TPopupMenu; N1: TMenuItem; Treeico: TTreeView; FileListBox1: TFileListBox; ScrollBox1: TScrollBox; Bevel7: TBevel; procedure OnClickimage(Sender: TObject); procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ShellTreeView2DblClick(Sender: TObject); procedure Image1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure TreeicoChange(Sender: TObject; Node: TTreeNode); procedure ShellTreeView2Click(Sender: TObject); procedure FileListBox1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; tempstr, PathObj, PathLink, Desc, Param, pathico: string; SearchRec:TSearchRec; i, count,x,z: integer; ic:ticon; implementation {$R *.dfm} function Icoshow(hint:string):string; Var New : Timage; ScrollBox1:tscrollbox; OnClickimage: TNotifyEvent; filelistbox1:tfilelistbox; Begin New:=Timage.Create(form1.ScrollBox1); new.Center:=true; new.Hint:=hint; new.Height:=32; new.Align:=altop; New.OnClick:=OnClickimage; new.Picture.Icon:=ic; new.Cursor:=crHandPoint; New.Parent:=form1.ScrollBox1; End; procedure TForm1.OnClickimage(Sender: TObject); begin Image1.Picture.Icon:=timage(Sender).Picture.Icon; //ic.Handle:=ExtractIcon(hInstance,PChar(filelistbox1.FileName),inttostr(sender.hi nt)); end; procedure TForm1.FileListBox1Change(Sender: TObject); begin ScrollBox1.DestroyComponents; count := ExtractIcon(hInstance,PChar(filelistbox1.FileName),cardinal(-1)); x:=0; while x<=count-1 do begin ic:=ticon.Create; ic.Handle:=ExtractIcon(hInstance,PChar(filelistbox1.FileName),x); Icoshow(inttostr(x)); inc(x); ic.Destroy; end; end;
вот код подробней, TForm1.OnClickimage приводит к ошибке.

← →
icWasya © (2006-09-12 10:45) [5]

см [2]

P.S. см [2] - это вероятнее всего

[2] не прокатывает, а проблема появляется сразу как процедура клика по имиджу начинает выполняться

помогите разобраться Найти похожие ветки