IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Компонент
сообщение
Сообщение #21


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +


Покажите пожалуйста фрагмент кода, где добавляется Parent
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Гость






Вот так, например:
unit Component2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
timage1 = class(TPanel)
private
{ Private declarations }
protected
{ Protected declarations }
procedure MyOnClick(Sender: TObject);
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
image1: Timage; // даже сюда поместил, а не в protected, думал видно будет
end;

procedure Register;

implementation

var b: boolean;
procedure Register;
begin
RegisterComponents('Samples', [timage1]);
end;
constructor timage1.Create(AOwner: TComponent);
begin
inherited;
Self.OnClick := MyOnClick;
image1 := Timage.Create(Self);
with image1 do
begin
Parent := Self;
// OnClick := MyOnClick;
Picture.Bitmap.LoadFromFile('in.bmp');
Left := self.Left + 10;
Top := self.Top + 10;
Height := self.Height - 20;
Width := self.Width - 20;
Visible := true;
Center := true;
Stretch := true;
Transparent := true;
end;
b := true;
end;

procedure timage1.MyOnClick(Sender: TObject);
begin
if b = true then
begin
self.Canvas.Brush.Color := clBlack;
end
else
begin
self.Canvas.Brush.Color := clred;
end;

image1.Hide;
self.Canvas.FillRect(Canvas.ClipRect);
image1.Show;

b := not b;
end;

end.
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.11.2020 3:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name