Динамически содать страницу TabSheet с нужными компонентами.

[Человек_Борща]

Всем привет!

Данная тема связана с: http://programmersforum.ru/showthread.php?p=700010

Собственно как создать динамически вот такие штуки:


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

[ArtGrek]

создаем компонент А
аналогично создаеца любои компонент

type
  TForm1 = class(TForm)
    ...
    procedure AClick(Sender: TObject);
    procedure ADblClick(Sender: TObject);
    procedure AMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure AMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure AMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
var
  Form1: TForm1;
  A: T...; // не знаю какого типа етот , первыи раз слышу

procedure TForm1.FormCreate(Sender: TObject);
begin
  A:=T....Create(self);
  with A do
  begin
    // все своиства и события пишуца в ручную
    Parent:=Form1; //помешает созданыи компонент на то чему равно Parent, если конешно он способен принимат на себя компоненты
    Top:=0;
    Left:=0;
    Width:=180;
    Height:=140;
    OnClick:=AClick;
    OnDblClick:=ADblClick;
    OnMouseDown:= AMouseDown;
    OnMouseMove:= AMouseMove;
    OnMouseUp:= AMouseUp;
  end;
end;

procedure TForm1.AClick(Sender: TObject);
begin

end;

procedure TForm1.ADblClick(Sender: TObject);
begin

end;

procedure TForm1.AMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

procedure TForm1.AMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

end;

procedure TForm1.AMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

end.

[Stilet]

со всем что на них есть

Все что на них есть вгоняем во фрейм, создаем вкладку, и на ней создаем фрейм

[ArtGrek]

TabSheet - ето странички у PageControl, ет для тех кто забыл, как я.

procedure TForm1.FormCreate(Sender: TObject);
var
  Page: TTabSheet;
begin
  Page := TTabSheet.Create(self);
  with Page do
  begin
    PageControl := PageControl1;
    Page.Caption :='New page' ;
  end;
end;

[Человек_Борща]

Обоим ставлю +=)

А вот с фрейм это тоже что и форма?
И как создать обработчик для кнопки на фрейме?
Допустим Есть функция

SendMessageToConsole(ConHandle:Thandle; ConMesg:string);

И есть 35 таких страниц, каждая принадлежит своей консольной программе.

Как по нажатию кнопки на N странце и посылать к N принадлежащему странице окну сообщение?

Как тут не путать?

[ArtGrek]

ConHandle:Thandle; ConMesg:string

покажи код где ты получаеш ети переменые
ConHandle :=
ConMesg :=

[Человек_Борща]

conHandle как-то так =)

             AttachConsole(pi.dwProcessId);
              ConWND := GetConsoleWindow; //Затем ConWND становится ConHandle
              SetWindowText(ConWnd, PChar(AppInfo.OtherCaption));
              FreeConsole;

ConMsg это текст передающийтся в окно по хендлу ConHandle

[ArtGrek]

я не понял, могу тебе аналогичныи пример показат
если ты програмно создаеш много компонент, задаи им событие, к примеру OnClick
а в самом событии пиши так:

procedure TForm1.AClick(Sender: TObject);
begin
  TButton(Sender).Top := 100;
или
  TLabel(Sender).Text := 'ArtGrek';
// тоест исползуеца тот объект которыи вызывает ету процедуру
end;

кстати у страниц вроди индексы свои должны быть

[Stilet]

А вот с фрейм это тоже что и форма?

Можно и так выразится.

Как по нажатию кнопки на N странце и посылать к N принадлежащему странице окну сообщение?

А как определена принадлежность? У тебя два варианта, либо описать обработчик непосредственно внутри фрейма, либо описать обработчик кнопки фрейма на форме, после того как фрейм вставлен. Зависит от твоей задачи, конкретно зависит.