
11.05.2010, 10:16
|
Начинающий
|
|
Регистрация: 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.
|