Показать сообщение отдельно
  #3  
Старый 11.05.2010, 10:16
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию

Цитата:
На каждой кнопке дабл-клик и в обработчике пишешь что-то типа Form2.Show (это для первой конпки, для авторой соотв. Form3 и для третьей Form4).
Здесь можно поподробней, дабл-клик его как добавлять? И как в обработчеке правельно поставить Form2.Show для первой кнопки?

Пытался зделать так, но не получилось
Код:
unit SDIMAIN;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  ActnList, ToolWin;

type
  TSDIAppForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SDIAppForm: TSDIAppForm;

implementation

uses about;

{$R *.dfm}

procedure TSDIAppForm.Button1Click(Sender: TObject);
begin
  application.createform(TForm1,Form1);
  if Form1.ShowModal=mrOk then
    begin
      //Some code
    end;
  Form1.Free;
end;

end.
Ответить с цитированием