[Dellink]

На форме с помощью кнопочного меню рисовать
...не совсем понимаю, что такое кнопочное меню...я зделал просто кнопки по нажатию которых меняется форма Shape, но она не меняется...может есть у кого простой код изменяющий форму...а то в гугле всё изменения цвета, ширины и т.д.

[NumLock]

TShape.Shape
Type TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle);

[Dellink]

Сообщение от NumLock

TShape.Shape
Type TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle);

тип я обьяви, но это что значит TShape.Shape?

Код:

procedure TForm3.Button2Click(Sender: TObject);
begin
   TShape.Shape := stRectangle;
end;

вот так ошибки....

[NumLock]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Shape1: TShape;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Shape1.Shape:=stEllipse;
end;

end.

[Dellink]

СПАСИБО! БЛИН...всё так легко было...только мучался(((