Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
 |  |
[Delphi] а как сделать это?... помогите... 12.03.02 21:42 Число просмотров: 973
Автор: Phantom_Stalker Статус: Незарегистрированный пользователь
|
> procedure TForm1.Button1Click(Sender: TObject); > var > Image: TImage; > begin > Image := TImage.Create(Self); > Image.Parent := Self; > Image.AutoSize := True; > Image.Picture.LoadFromFile('d:\26619b.jpg'); > end;
Можно также обойтись без объявления переменных:
begin
with TImage.Create(Self) do
begin
Image.Parent := {напиши имя формы на которую помещаешь TIMAGE};
Image.name:="SuperImage";
Image.AutoSize := True;
Image.Picture.LoadFromFile('d:\26619b.jpg');
end;
end;
Теперь можешь обращаться к картинке из любой части программы, используя объект SuperImage ;-)
|
|
<programming>
|
[Delphi] а как сделать это?... помогите... 12.03.02 14:28
Автор: WingGod Статус: Незарегистрированный пользователь
|
вощем вопрос банален: как программно создать компонент TIMage, я все делаю как и для остальных компонентов, а он не создается...:( (допустим Tbutton, Tform могу создать )
Зы: тока не надо говорить что лучше пользоваться канвасом или Тбитмапом...я это знаю, но нужен имеено TImage
|
 |
[Delphi] а как сделать это?... помогите... 12.03.02 14:41
Автор: Lz Статус: Незарегистрированный пользователь
|
> вощем вопрос банален: как программно создать компонент > TIMage, я все делаю как и для остальных компонентов, а он > не создается...:( (допустим Tbutton, Tform могу создать ) > > Зы: тока не надо говорить что лучше пользоваться канвасом > или Тбитмапом...я это знаю, но нужен имеено TImage
интересно, а какая разница в создании ?
Вот что написал - никаких проблем не возникло.
Может ты TPanel используешь и присваиваешь не тот Parent ?
procedure TForm1.Button1Click(Sender: TObject);
var
Image: TImage;
begin
Image := TImage.Create(Self);
Image.Parent := Self;
Image.AutoSize := True;
Image.Picture.LoadFromFile('d:\26619b.jpg');
end;
|
 |  |
[Delphi] а как сделать это?... помогите... 12.03.02 21:42
Автор: Phantom_Stalker Статус: Незарегистрированный пользователь
|
> procedure TForm1.Button1Click(Sender: TObject); > var > Image: TImage; > begin > Image := TImage.Create(Self); > Image.Parent := Self; > Image.AutoSize := True; > Image.Picture.LoadFromFile('d:\26619b.jpg'); > end;
Можно также обойтись без объявления переменных:
begin
with TImage.Create(Self) do
begin
Image.Parent := {напиши имя формы на которую помещаешь TIMAGE};
Image.name:="SuperImage";
Image.AutoSize := True;
Image.Picture.LoadFromFile('d:\26619b.jpg');
end;
end;
Теперь можешь обращаться к картинке из любой части программы, используя объект SuperImage ;-)
|
|
|