как редактировать компонет в runtime например когда изменяеш размеры и положения компонентов на Form при разработке. нужно очень поджкажите!
таскать компоненты я могу но изменять размеры ?

asset_s Ну а если использовать свойства width и height, разве не получается?

Да можно но как зто сделить с мышкой

Самый простой способ - TSplitter
Но не всегда подходит

Придется писать таким образом: Ловишь событие перемещения мыши по компоненту - если на краю - преобразуешь курсор на стрелку, с середине - на 4 стрелки, на форме - обычный курсор.
Нажание мыши - в зависимости от курсора в глобальной переменной пишешь, что компонент может меняться (или в свойстве компонента). На перемещение мыши добавляешь, если свойство компонента на изменение=true, то меняшь размер или перемещаешь в зависимости от вида курсора. На событие MouseUp - свойство на изменение = false.

http://forum.vingrad.ru/index.php?showtopi...=0&#entry340303

Понял спасибо!!! попробую!

http://forum.vingrad.ru/index.php?showtopi...=0&#entry330896

Цитата(Snowy @ 12.4.2005, 09:37)

http://forum.vingrad.ru/index.php?showtopi...=0&#entry330896

Т.е. создавать окно?
Для одного - двух компонентов это отлично. Но если 100 и более... Ну не знаю....
Просто подскажи, Snowy, что будет с ресурсами?

Добавлено @ 15:52
Ну а вообще-то красиво.

Цитата(bursa @ 12.4.2005, 15:50)

Т.е. создавать окно?

Зачем создавать? Просто задаешь параметры существующим компонентам.

Цитата(bursa @ 12.4.2005, 15:50)

Для одного - двух компонентов это отлично. Но если 100 и более...

А тут никаких сложностей. В OnCreate формы делаешь цикл с FindComponent.
И применяешь этот код ко всем найденным на форме компонентам или определенным типам.
Для цикла что один, что тысяча... Разница только во времени выполнения.

Цитата(bursa @ 12.4.2005, 15:50)

Просто подскажи, Snowy, что будет с ресурсами?

А что с ними будет... Попробуй - узнаешь. Зависит от целей.
Из того кода в линке, тебе нужен только первый.
Второй код прилеплен так... для выпендрежа.

Цитата(Snowy @ 12.4.2005, 17:06)

Второй код прилеплен так... для выпендрежа.

Я плакаль

Код

procedure TForm1.Button1Click(Sender: TObject); var Style,ExStyle,i:integer; begin  for i:=0 to ComponentCount-1 do   if (Components[i] is TWinControl) then    With TWinControl(Components[i]) do     begin      Align:=alNone;      Style:=GetWindowLong(Handle,GWL_Style);      Style:=Style or WS_THICKFRAME;      SetWindowLong(Handle,GWL_Style,Style);      ExStyle:=WS_EX_CLIENTEDGE;      SetWindowLong(Handle,GWL_ExStyle,ExStyle);      SetWindowPos(Handle,HWND_TOP,Left,Top,Width,Height,SWP_FRAMECHANGED);     end; end;