Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2010, 16:17   #1
-ushёl-
Форумчанин
 
Аватар для -ushёl-
 
Регистрация: 04.02.2009
Сообщений: 141
Вопрос Delphi7.Как создать 3 рабочих компонента CheckBox?

Размещаю на форме 3 CheckBox'a и одну кнопку Button1.При создании функции для CheckBox2(двойной щелчёк мышкой) компилятор выдаёт сообщение такого типа:"Cannot find implementation of method CheckBox2Click"
Само задание выглядить так(снимок прилагается):
Изображения
Тип файла: jpg delphi.jpg (176.2 Кб, 156 просмотров)
-ushёl- вне форума Ответить с цитированием
Старый 21.03.2010, 16:24   #2
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

Найди в коде описание всех ChekcBox'ов и удали для второго. Или удали все CheckBox'ы и кинь заново.
И неполхо было бы увидеть весь код модуля
psycho-coder вне форума Ответить с цитированием
Старый 21.03.2010, 16:43   #3
-ushёl-
Форумчанин
 
Аватар для -ushёl-
 
Регистрация: 04.02.2009
Сообщений: 141
По умолчанию

Всё вроде запустилось!
Я так понимаю сама ide'шка заточена под xp,а у меня Vista,поэтому тут всплывает всякие ошибки и "ругань".Вод код:
Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Button1: TButton;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
 begin
   case CheckBox1.State of
     cbUnchecked: CheckBox1.Caption:='perekluchatel ne vkluchen';
     cbChecked: CheckBox1.Caption:='perekluchatel vkluchen';
  end;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
 begin
 case CheckBox2.State of
     cbUnchecked: CheckBox2.Caption:='perekl ne vkluchen';
     cbChecked: CheckBox2.Caption:='perekl vkluchen';
  end;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
 begin
  case CheckBox1.State of
     cbUnchecked: CheckBox1.Caption:='perekl ne vkluchen';
     cbChecked: CheckBox1.Caption:='perekl vkluchen';
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CheckBox3.State:=cbChecked;
CheckBox3.Caption:='Ïåðåêëþ÷àòåëü âêëþ÷¸í';
end;

end.
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

Последний раз редактировалось Stilet; 22.03.2010 в 09:44.
-ushёl- вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как динамически создать процедуры для подменю компонента TMainMenu Dimitriys Общие вопросы Delphi 9 13.01.2011 18:02
Вызов контекстной справки для компонента из Help-файла в Delphi7 Olyshka14 Помощь студентам 0 12.06.2009 20:00
Как с помощью CoCreateInstance() создать экземпляр компонента mrTorrance Win Api 0 17.03.2009 14:24
Создать класс(компонент) внутри компонента Deight Общие вопросы Delphi 6 21.12.2008 09:26
создать свойство компонента дядя Компоненты Delphi 2 11.05.2008 23:23