Delphi TMemo

[world12_tk]

Уважаемые форумчанины..... возник вопрос..
У нас есть на форме компонент TMemo.Пользователь запускает программу. Как сделать так, чтобы пользователь сам мог менять размеры этого компонента???
заранее спасибо

[russian-stalker]

Можно попробовать так:

var
  Form1: TForm1;
  pressed:boolean;
  lastx,lasty:integer;

implementation

{$R *.dfm}

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (x>Memo1.Width-10) and (y>Memo1.Height-10) then
begin
pressed:=true;
lastx:=x;
lasty:=y;
end;
end;

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
pressed:=false;
end;

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if pressed then
begin
memo1.Width:=memo1.Width+(x-lastx);
memo1.Height:=memo1.Height+(y-lasty);
lastx:=x;
lasty:=y;
end;
end;

[world12_tk]

а не могли бы объяснить что делают процедуры??? плз....

[Utkin]

Первая - действия при нажатии на кнопку мыши. Вторая когда отпускают кнопку, третья при перемещении мыши меняет размер (в случае, если нажата кнопка мыши) .

[raxp]

ну, перехватывать события компонента...
но можно поступить проще, сделайте основную форму контейнером, на второй форме с bsnone расположите memo с alclient и сделайте привязку положения второй формы к первой...

неужели такое необходимо?

[world12_tk]

огромное спасибо.... вы мне очень помогли