Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 18.03.2007, 18:14   #1
cross
Новичок
Джуниор
 
Регистрация: 03.12.2006
Сообщений: 2
По умолчанию ООП мое первое начало

Всем привет! Пожалуйста помогите разобраться с ООП. Решил к этому подойти вплотную, и теперь куча вопросов и проблем. Задумал одну программку, помогите на ней разъяснить..... Может что-то надо изменить..... Суть дела, в том, что надо на форму вывести 5 кружков, создать их и вывести, и еще чтобы можно учитывать клик мышкой.
type
tFAlarm=class
private
{ Private declarations }
fCircle:Timage;
fBcircle:Timage;
fAlCircle:Timage;
fname:string;
public
{ Public declarations }
procedure ShowFAlarm;
end;

var fAlarm:tFAlarm;

procedure tFAlarm.ShowFAlarm;
begin
fcircle.fimg:=Timage.Create(form2.P nlAlarm);
fcircle.fimg.Parent:=form2.PnlAlarm ;
fcircle.fimg.Picture.LoadFromFile(f path+'Texture\AlCirlce.bmp');
end;
fAlarm:=tFAlarm.Create;
fAlarm.fAlCircle:=Timage.Create(for m2.panelAlarm);
fAlarm.fAlCircle.Parent:=form2.Pane lAlarm;
fAlarm.fAlCircle.Show;
fAlarm.fAlCircle.Picture.LoadFromFi le(fpath+'Texture\AlCirlce.bmp');
fAlarm.fAlCircle.AutoSize:=true;
fAlarm.fAlCircle.Transparent:=true;
end;

Как правильно можно все это организовать и что вписывать в constructor?
cross вне форума Ответить с цитированием
Старый 18.03.2007, 22:58   #2
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

у меня такое впечатление что этот код писал вообще не знающий в паскале человек без обид но вот это procedure tFAlarm.ShowFAlarm; Вы 2 раза указываете конец процедупы end; ! и вообще надо бы побольше кода... да и забыл еще я вообще не вижу конструктор ! а чем Вы
BOBAH13 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Canvas. Первое Начало (#001) Albert2008 Компоненты Delphi 2 19.07.2008 21:45
С# - начало mirawoo Софт 2 14.07.2008 17:48
Как из Даты взять первое число? valerij Microsoft Office Excel 15 17.06.2008 13:39
Как уменьшить мое первое окно BOPOHA Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 29.12.2007 18:57