| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Имя TImage'a [D7, WinXP]

Radgar ©   (2005-08-04 16:33:00) 

Подскажите, пожалуйста, как присвоить имя TImage'у, чтоб потом можно было писать TImage(Name).Picture...

Заранее спасибо.

---

Ega23   (2005-08-04 17:59:00) [1]

Ну можно и так

---

begin...end   (2005-08-04 17:57:00) [2]

> Ega23 ©   (04.08.05 17:17) [11]
> if (Components[i] is TImage) then

Если ориентироваться на требования автора вопроса, эту строчку нужно заменить на if Components[i].ClassName = 'TImage' then.

---

Eraser   (2005-08-04 17:17:00) [3]

Radgar ©   (04.08.05 17:08) [9]

К чему присвоить то? Показывай код...

---

Ega23   (2005-08-04 17:17:00) [4]


Declare @ImgName varchar(32)

Select @ImageName=TObject(Co)


тьфу, блин... Совсем крыша поехала...


function TForm1.TImageByName(const aName:String):TImage;
var
i:Integer;
ss:string;
begin
Result:=nil;
ss:=ANSIUpperCase(aName);
for i:=0 to ComponentCount-1 do
 if (Components[i] is TImage) then
  begin
   if ANSIUpperCase(TImage(Components[i]).Name)=ss then
    begin
     Result:=TImage(Components[i]);
     Break;  
    end;
  end;
end;



---

Radgar   (2005-08-04 17:08:00) [5]

> Как в [2]. А как надо?


Ну а как присваивотьэто имя? (Пример)

---

Eraser   (2005-08-04 17:06:00) [6]

Radgar ©   (04.08.05 16:58) [7]
Ну а как выйдет?

Как в [2]. А как надо?

---

Radgar   (2005-08-04 16:58:00) [7]

>Eraser ©
> Не. Так не выйдет.


Ну а как выйдет?

---

Eraser   (2005-08-04 16:54:00) [8]

Radgar ©   (04.08.05 16:45) [4]
Image1.Name:=...

А потом:
TImage(Здесь имя).Picture...

Не. Так не выйдет.
Image1 ни что иное как указатель на объект.
TImage(...) привидение типа данного указателя к типу TImage.

---

clickmaker   (2005-08-04 16:48:00) [9]

> Но я не помню как правильно писать имя, может кто знает?

имя правильно писать с большой буквы

---

Radgar   (2005-08-04 16:45:00) [10]

>
> var
>  Img: TImage;
> ...


Да не так там что-то вроде такого:
Image1.Name:=...

А потом:
TImage(Здесь имя).Picture...

Но я не помню как правильно писать имя, может кто знает?

---

Джо   (2005-08-04 16:43:00) [11]

>  Radgar ©   (04.08.05 16:33)

Это, конечно, не мое дело, но... Я уже несколько месяцев вижу под твоим ником такие совершенно безграмотные вопросы. Неужели за эти несколько месяцев нельзя было прочитать хотя бы Language Reference? Это ведь должно быть стыдно, блин.

---

Eraser   (2005-08-04 16:37:00) [12]

Radgar ©   (04.08.05 16:33)

var
 Img: TImage;
...

---

Ega23   (2005-08-04 16:35:00) [13]

Разницу между именем объекта TImage.Name и именем указателя на объект TImage ощущаешь?

---

Наверх