TForm1 изменить размер

[gakuseix]

формы при нажатии кнопки Button.
Т.е. мне надо изменить размер формы с левой стороны, было допустим 500 стало 400 при нажатии кнопки. что то похожее на выплывающее меню.

[DomiNick]

Не совсем понял чем именно оно должно быть похоже на "выплывающее меню"...

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Form1.Width:=Form1.Width-100;
Form1.Left:=Form1.Left+100;
End;

Но лучше делать с правой стороны...

[gakuseix]

Спасибо. Но не совсем то что хотелось бы. Уточню, мне надо чтобы при нажатии кнопки левая часть формы как бы отрезалась, а с этим кодом форма сужается и сдвигает с собой все содержимое. ( Отрезалась и пропадала, точнее просто пропадала)
С правой стороны конечно можн так сделать, а вот с левой проблема.

[Vladya]

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

[Stilet]

а с этим кодом форма сужается и сдвигает с собой все содержимое.

Ну уменьшай только Width и Height, а Left и Top не трогай.

[Neeter]

Вот посмотрел разные функции в Delphi по работе с прозрачностью (введя Transparent в хелпе) и нашел TransparentBlt, я не отвечу на вопрос, но может быть вам это подойдет. Хотя не уверен. Тут создается интересный эффект.

Создайте сначала новый проект и посмотрите что это из себя представляет.
Установите BorderStyle у формы в bsNone, киньте на форму таймер и установите у него интервал в 10
Вот весь исходный код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    bt_1: TButton;
    Timer1: TTimer;
    procedure bt_1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    //Перетаскивание формы за любую часть
    procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bt_1Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 //Canvas.Handle - HDC, на который надо переводить изображение
 //0, 0, 100, Height - координаты, куда надо переводить изображение
 //GetDC(0) - HDC экрана за формой
 //Left, Top, 100, Height - координаты, откуда надо брать изображение
 //100 - не знаю что такое, просто поставил 100, но и с 0 работает также
 TransparentBlt(Canvas.Handle, 0, 0, 100, Height, GetDC(0), Left, Top, 100, Height, 100);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Repaint;
end;

procedure TForm1.WMLButtonDown(var Msg: TMessage);
begin
 Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
end;

end.

[DomiNick]

С правой стороны конечно можн так сделать, а вот с левой проблема.

У компонентов есть свойство "Anchors"... Если поменять у всех компонентов "akLeft" (который по умолчанию) на "akRight", то будет наоборот...

Вообще странное свойство... Как-то криво работает (или я не правильно понимаю как оно должно себя вести)...

А может просто две разные формы делать? Когда понадобится - одну скрывать...

Вот весь исходный код:

У меня ничего особенного не заметно... Вообще...
Просто обычная форма с кнопкой...

[Stilet]

Как-то криво работает

Нормательно оно фунциклирует, просто не всегда удобно )

[Neeter]

У меня ничего особенного не заметно... Вообще... 
Просто обычная форма с кнопкой...

Хм... Может быть вы сделали что-то не так?
У вас делфи какой версии?
Можете скинуть исходник.

Или вы просто не заметили...
Подвигайте форму.

[gakuseix]

DomiNick

А может просто две разные формы делать? Когда понадобится - одну скрывать...

Да, пробовал так но не очень удобно. Спасибо.