Текущий архив: 2005.08.28;
Скачать: 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 вся ветка
Текущий архив: 2005.08.28;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.043 c
