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

[DomiNick]

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

Я просто никогда не могу точно предсказать, какой будет результат... Обычно совсем отключаю его и прописываю зависимости от размера формы вручную...

У вас делфи какой версии?
Можете скинуть исходник.

"Делфи 7" у меня...
Чуть изменил строчку

TransparentBlt(Canvas.Handle, 0, 0, 100, Height, GetDC(0), Left, Top, 100, Height, 100);

на

TransparentBlt(Canvas.Handle, 0, 0, 100, Height, GetDC(0), Left+100, Top, 100, Height, 100);

На форме стало целых две кнопки... Но нажимается тока "настоящая"...

Поэкспериментировал ещё - кажется

//GetDC(0) - HDC экрана за формой

у меня не "за формой", а вместе с формой...
Вложение "TranspBlt.zip"...

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

Я вот так, бывает, делаю (вложение "Новая Папка.zip")...

[Neeter]

Ай, да, забыл... TransparentColor у формы выставите в true
И в onCreate пропишите например:

procedure TForm1.FormCreate(Sender: TObject);
begin
 TransparentColorValue := clRed;
end;

Чтобы бордюр и надпись кнопки небыли прозрачными)

[-HunteR-]

А зачем заморачиваться? просто скрываемую часть создать на одной панели, а нескрываемую на другой и при нажатии скрывать скрываемую, а нескрываемую двигать на left=0 и width у формы тоже уменьшить

[DomiNick]

Потрясающе.....

Как раз недавно была тема, как рисовать на форме то что под ней, но там кажется так ничего и не решилось...
Только при перетаскивании дёргается немного - никак нельзя пофиксить..?)

gakuseix, я придумал... Только там будет глюк со стилем оформления формы...

Procedure TForm1.Button1Click(Sender: TObject);
Var R1, R2: HRGN;
Begin
R1:=CreateRectRgn(0, 0, 200, Form1.Height);
R2:=CreateRectRgn(0, 0, Form1.Width, Form1.Height);
CombineRgn(R1, R1, R2, RGN_XOR);
SetWindowRgn(Form1.Handle, R1, True);
End;

Procedure TForm1.Button2Click(Sender: TObject);
Var R1: HRGN;
Begin
R1:=CreateRectRgn(0, 0, Form1.Width, Form1.Height);
SetWindowRgn(Form1.Handle, R1, True);
End;

[Neeter]

Только при перетаскивании дёргается немного - никак нельзя пофиксить..?)

А вот этого я не знаю... Про этот "эффект" я и говорил)

[Neeter]

Вроде один раз нажал... Два поста создалось...

[evg_m]

jоформляем форму в виде двух панелей
leftpanel левая (отрезаемая) часть
leftpanel.allign:=alleft

basepanel основная панель
basepanel.allign:=alclient

при нажатии кнопки скрыть делаем
w:=basepanel.width;
leftpanel.visible:=false;
form.clientwidth:=w;