Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

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

← →
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]

---

← →
Elen ©   (2006-09-12 12:20) [6]

> Adios ©

В какой строке конкретно? Расставь бряки...

---

← →
Elen ©   (2006-09-12 12:22) [7]

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

---

← →
Adios ©   (2006-09-13 18:13) [8]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.01;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.027 c