How can I start to VCL Forms Application?

[turbomen]

Dear ALL,

Hi. Long time no see. How are you? I have come back to Programming class already.

Could you tell me how can I start to VCL Forms Application if I use Delphi6?

Cheers,

turbomen

[finalist]

Hi,
I could tell you how to start to VCL Forms Application using Delphi7:

You have to use menu:
- File
- New
- Application

Delphi will open a new Unit1.pas and a new Form1 ....
Unit1 will contain all the methods about Form1.
You may drop VCL-components from the palette of Delphi into Form1 as Buttons, Memos, StringGrids and so on....
After that you may develop your application by programming Events of above Components as:

procedure TForm1.Button1Click(Sender: TObject);
begin
//.............
end;

....

[turbomen]

Hi,

Thank you for your kind help but the screen is total different between Delphi6 and Delphi IDE.

Cheers,

turbomen

Hi,
I could tell you how to start to VCL Forms Application using Delphi7:

You have to use menu:
- File
- New
- Application

Delphi will open a new Unit1.pas and a new Form1 ....
Unit1 will contain all the methods about Form1.
You may drop VCL-components from the palette of Delphi into Form1 as Buttons, Memos, StringGrids and so on....
After that you may develop your application by programming Events of above Components as:

procedure TForm1.Button1Click(Sender: TObject);
begin
//.............
end;

....

[turbomen]

Hi,

Thank you for your kind help but the screen is total different between Delphi6 and Delphi IDE.

Cheers,

turbomen

Hi,

I have tried to open my classwork at my computer but I do not know why I cannot change the size of the image and many of the things.

Please give me some of the ideas to do it.

Cheers,

turbomen

[finalist]

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Image1.Stretch := not Image1.Stretch;
end;

end.