изменять размер в рантайме

[Attid]

в общем хочу у кнопки \ панельки в рантайме менять размер мышкой также как в дизайн-тайме как это сделать ?

помнися как-то просто должно быть.

[Alexx2000]

Не знаю может можно проще, но я делал через обработку событий
OnMouseDown
OnMouseMove
OnMouseUp

[Attid]

я заюзал
OnMouseMove
OnMouseLeave

код делал для примера знакомому, надо будет в понедельник запостить для потомков.

просто думал может можно вызвать свойства которые у компонентов в дизайне, чтоб появились квадратики за которые мышь цеплятся будет.

[Slavikk]

Потомки уже ждут

[Attid]

Код: Выделить всё

procedure TForm1.MyMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//  TWinControl(Sender).Caption := 'x= '+IntToStr(x)+ ' y = '+ IntToStr(Y) ;
  if (x > TWinControl(Sender).Width - 10) and (y > TWinControl(Sender).Height - 10) then
    TWinControl(Sender).Cursor := crSizeNWSE;

  if ((TWinControl(Sender).Cursor = crSizeNWSE) and (ssLeft in Shift)) then
  begin
       TWinControl(Sender).Width := X;
       TWinControl(Sender).Height := Y;
  end;
end;

procedure TForm1.MyMouseLeave(Sender: TObject);
begin
  TWinControl(Sender).Cursor := crDefault;
end;

код работает на кнопке\панельке\мемо
больше не проверял =)

по хорошему надо маус ап\доун тоже обрабатывать, но и так все работает =)

[Slavikk]

Спасибо

[v-t-l]

Если написать так

Код: Выделить всё

  if (x > TWinControl(Sender).Width - 10) and (y > TWinControl(Sender).Height - 10) then
    TWinControl(Sender).Cursor := crSizeNWSE
  else
    TWinControl(Sender).Cursor := crDefault;


, то OnMouseLeave не нужен.

Кстати, немного смущает TWinControl. Нормально в плане кроссплатформенности?

[Attid]

v-t-l
а ты пробывал ? я перед тем как OnMouseLeave заюзать пробывал.
если быстро двигать мышей глючит бесподобно.

[v-t-l]

Пробовал. Заметил.

[v-t-l]

Attid
http://angusj.com/delphi/sizectrl.zip
Может удастся адаптировать.