Скачать: CL | DM;

Имя TImage a   Найти похожие ветки 

← →
Radgar ©   (2005-08-04 16:33) [0]

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

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

---

← →
Ega23 ©   (2005-08-04 16:35) [1]

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

---

← →
Eraser ©   (2005-08-04 16:37) [2]

Radgar ©   (04.08.05 16:33)

var
 Img: TImage;
...

---

← →
Джо ©   (2005-08-04 16:43) [3]

>  Radgar ©   (04.08.05 16:33)

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

---

← →
Radgar ©   (2005-08-04 16:45) [4]

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


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

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

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

---

← →
clickmaker ©   (2005-08-04 16:48) [5]

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

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

---

← →
Eraser ©   (2005-08-04 16:54) [6]

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

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

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

---

← →
Radgar ©   (2005-08-04 16:58) [7]

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


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

---

← →
Eraser ©   (2005-08-04 17:06) [8]

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

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

---

← →
Radgar ©   (2005-08-04 17:08) [9]

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


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

---

← →
Eraser ©   (2005-08-04 17:17) [10]

Radgar ©   (04.08.05 17:08) [9]

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

---

← →
Ega23 ©   (2005-08-04 17:17) [11]


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;



---

← →
begin...end ©   (2005-08-04 17:57) [12]

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

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

---

← →
Ega23 ©   (2005-08-04 17:59) [13]

Ну можно и так

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c