Потерял исходник формы

[Dj_smart]

Все доброго времени суток!
У меня такай проблемка: я потерял исходник главной формы (то есть характеристика формы и всех обьектов на ней). Исходник проги есть. Кто знает, скажите плиз, как по шагам восстановить ее(форму) ?

[Air]

Дык...

Очень просто, в unit.pas все компоненты прописаны, по одному - посмотрели - удалили - создали.

пример.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Label1: TLabel;
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;

это говорит нам о том, что на форме были компоненты:
Label, Edit, Memo, Button.

procedure Button1Click(Sender: TObject);

А это говорит, что у кнопки было событие.

[Dj_smart]

Спасибо большое!+

[Dj_smart]

А компонентов много :

    Panel1: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Timer1: TTimer;
    Label5: TLabel;
    Label3: TLabel;
    Timer3: TTimer;
    Timer4: TTimer;
    memo1: TRichEdit;
    PageControl1: TPageControl;
    CoolTrayIcon1: TCoolTrayIcon;
    List: TCheckListBox;
    BitBtn1: TBitBtn;
    PopupMenu1: TPopupMenu;
    N1a: TMenuItem;
    N2a: TMenuItem;
    N3a: TMenuItem;
    N4a: TMenuItem;
    Timer2: TTimer;
    Timer5: TTimer;
    Button6: TBitBtn;
    PopupMenu2: TPopupMenu;
    N1b: TMenuItem;
    Beep1: TMenuItem;
    Cjjotybt1: TMenuItem;
    All1: TMenuItem;
    Find2: TMenuItem;
    TabSheet3: TTabSheet;
    Timer6: TTimer;
    Label7: TLabel;
    Label8: TLabel;
    Button7: TButton;
    Label9: TLabel;
    Label10: TLabel;
    Label4: TLabel;
    Memo2: TMemo;
    Label11: TLabel;
    Image25: TImage;
    button5: TBitBtn;
    button2: TBitBtn;
    Button3: TButton;
    Smile: TBitBtn;
    BitBtn3: TBitBtn;
    button4: TBitBtn;
    Button8: TButton;
    Button9: TButton;
    Label6: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N101: TMenuItem;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    N1: TMenuItem;
    N2: TMenuItem;
    Super: TMenuItem;
    i1: TMenuItem;
    CheckBox5: TCheckBox;
    Label14: TLabel;
    N3: TMenuItem;
    Button10: TButton;
    Label15: TLabel;
    RxClock1: TRxClock;
    RxGIFAnimator1: TRxGIFAnimator;
    XPManifest1: TXPManifest;
    Gauge1: TProgressBar;
    Gauge2: TProgressBar;
    PopupMenu3: TPopupMenu;
    N4: TMenuItem;
    PopupMenu4: TPopupMenu;
    Chat1: TMenuItem;
    Chat2: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    CheckBox6: TCheckBox;
    Timer7: TTimer;
    Label16: TLabel;
    Button11: TButton;
    Edit3: TEdit;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Beep2: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    IP1: TMenuItem;
    IP2: TMenuItem;
    N19: TMenuItem;

[Air]

Это Вам надо по отдельности затирать иначе компонент не создастся.

[Jeni]

Если есть уже готовый exe-файл этой программы, то всё сильно упрощается - с помощью какой-нибудь программы-просмотрщика ресурсов можно выдрать из экзешника любую форму. Лично я для этого пользуюсь программой Restorator.

[Dj_smart]

Лично я для этого пользуюсь программой Restorator.

А по подробнее...?

[Dj_smart]

СПАСИБО большое! +1 ! Была прога под рукой, а я и не подумал А зовут ее DeDe.

[Zeraim]

Таже самая проблема, тока немного по другому выглядит, зараза дельфи все мои проги в один проэкт пишет, в итоге работает тока одна, последняя, благо я не такой монстр как Смарт _)

[Dj_smart]

В смысле? Как в один?