[Полбутылки сентября]

1.товарищи, подскажите в чем дело, я с ума схожу — в Delphi после компиляции не отображается имя RadioButton

тут есть

тут нет

в чем проблема?

Comments

[asura013]

может её длину где изменяешь? или название. поищи поиском по юниту все обращения к этому элементу ) может где что ставил для отладки да забыл?

[SpiritEagle]

Полбутылки сентября
Советую попробовать короткое имя.

[Tigresa]

RadioButton.Name=rb1
RadioButton.Caption="ядер переднего гипоталамуса"
//То, что отображается - это не имя, это свойство Caption, по умолчанию равное имени.

[Just-a-Shadow]

Код покажи.

[Just-a-Shadow]

код покажи.

[Just-a-Shadow]

млин, дайри заглючил)

[Полбутылки сентября]

спасибо, товарищи. все перепробовала и все равно не отображается, и оказалось, что после перезагрузки его и до компилляции в форме не видно. =/ совсем я нуб какой-то.

код компонента собственно вот

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
if RadioButton6.Checked
then
begin
Label8.Caption:='влияет на вегетативные функции лимбической коры';
Label9.Caption:=' ';
Label10.Caption:=' ';
Label11.Caption:=' ';
end;
end;

[asura013]

выложи весь проект xD

[Полбутылки сентября]

да там собственно одно и то же

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked
then
begin
Label1.Caption:= 'зубчатая извилина' ;
Label2.Caption:= 'грушевидная доля' ;
Label3.Caption:= 'поясная (лимбическая) извилина';
Label4.Caption:= ' ' ;
Label5.Caption:= ' ' ;
Label6.Caption:= ' ' ;
end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked
then
begin
Label1.Caption:= 'гипокамп' ;
Label2.Caption:= 'перегородка' ;
Label3.Caption:= 'передние ядра таламуса' ;
Label4.Caption:= 'гипоталамус' ;
Label5.Caption:= 'миндалина' ;
Label6.Caption:= 'мамиллярные тела' ;
end;
end;


procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if RadioButton3.Checked
then
begin
Label8.Caption:= 'возникает комплекс симпатических и парасимпатических реакций';
Label9.Caption:=' ';
Label10.Caption:=' ';
Label11.Caption:=' ';
end;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
if RadioButton4.Checked
then
begin
Label8.Caption:='вызывает ярость, половую активность, гипервозбудимость';
Label9.Caption:=' ';
Label10.Caption:=' ';
Label11.Caption:=' ';
end;
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
if RadioButton5.Checked
then
begin
Label8.Caption:='приводит к развитию вазомоторных реакций,';
Label9.Caption:='изменению двигательной активности кишечника';
Label10.Caption:='и комплексу соматических и вегетативных';
Label11.Caption:='эффектов, сопровождающих эмоции';
end;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form4.Show
end;

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
RadioButton6.Caption:='ядер переднего гипоталамуса';
if RadioButton6.Checked
then
begin
Label8.Caption:='влияет на вегетативные функции лимбической коры';
Label9.Caption:=' ';
Label10.Caption:=' ';
Label11.Caption:=' ';
end;
end;

end.

[Just-a-Shadow]

возьми весь проект, заархивируй и выложи куда-нибудь.. проблема явно не в этом исходнике. хотя лично я бы вообще все тут переделал нафиг

[Полбутылки сентября]

Just-a-Shadow лично я бы вообще все тут переделал нафиг
вот и я уже так подумала. посмотрела, поняла, что откровенную хрень, извините, какую-то написала.)
так что вопрос снимается.)