Проблема с названием компонентов в delphi

[BuT@JL]

Neobrat блин ни фига не получается вот посмотри мой проект

[Neobrat]

Сообщение от BuT@JL

Neobrat блин ни фига не получается вот посмотри мой проект http://www.rapidshare.ru/983423

неа с рабиды не скачаю ))

выкладывай сдесь, только не забудь обрамить тегом

[BuT@JL]

вот воложил на этот сайт

[BuT@JL]

Мне нужно убрать пустую вкладку "0". Как это сделать я не знаю (

[Neobrat]

и в чем проблемма собстенно говоря??
вроде как все работает.. кнопочки нажимються панельки меняються
что от меня то хочешь? на что я тут должен глянуть?

у тебя архив битый.. кое как выташил Unit1

сорри не заметил предыдуший пост

[Neobrat]

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

смысл такой мы на панель кидаем наши инструменты..
а затем когда меняем TabSheet то меняем в наших елементах значение и меняем у них родителя...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TBitBtn;
    Button2: TBitBtn;
    Panel1: TPanel;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    PageControl: TPageControl;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure TabSheetShow(Sender: TObject);
  public
    { Public declarations }
  end;

var
Form1:TForm1;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
dir:string;
Questions:TStringList;
ix,CountQuestions:integer;
TabSheet:TTabSheet;
Memo:TMemo;
begin
Questions:=TStringList.create;
Questions.LoadFromFile('c:\1.TXT');
CountQuestions:=Questions.Count;
with PageControl do
 begin
 Top := 0;Left := 0;
 Width := 750;Height := 500;
 tabWidth := 20;tabHeight :=20 ;
 TabPosition:=tpBottom;
 end; // with TPageControl


for ix:=0 to CountQuestions-1 do
 begin
 TabSheet:=TTabSheet.Create(PageControl);
 TabSheet.PageControl:=PageControl;
 with TabSheet do
  begin
  Visible := True;// Это необходимо, или форма не будет корректно перерисовываться
  Caption := inttostr(ix+1);
  OnShow:=TabSheetShow;
  end; // with
 end;
PageControl.ActivePageIndex:=0
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl.SelectNextPage(false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl.SelectNextPage(true);
end;

procedure TForm1.TabSheetShow(Sender: TObject);
var ix,iy:integer;
Sheet:TTabSheet;
begin
if not (Sender is TTabSheet) then exit;
if Panel1.ControlCount>0 then
 begin
  for ix:=Panel1.ControlCount-1 downto 0 do
   begin
   if (Panel1.Controls[ix] is TMemo) or (Panel1.Controls[ix] is TRadioButton) then
   Panel1.Controls[ix].Parent:=(Sender as TTabSheet);
   end;
 end
else
 begin
 Sheet:=nil;
 for ix:=0 to PageControl.PageCount-1 do
  if PageControl.Pages[ix].ControlCount>0 then  Sheet:=PageControl.Pages[ix];
 if Sheet<>nil then
  begin
  for ix:=Sheet.ControlCount-1 downto 0 do
   begin
   if (Sheet.Controls[ix] is TMemo) or (Sheet.Controls[ix] is TRadioButton) then
    begin
    Sheet.Controls[ix].Parent:=(Sender as TTabSheet);
     // сдесь в зависимости что нашли пишешь что да куда..
    end;
   end;
  end;
 end;


end;




end.

[BuT@JL]

Большое тебе спасибо