![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
||||
|
||||
|
Даже не знаю, возможно ли такое. Я хочу сделать программу, и одна из форм должна выглядеть следующим образом http://bik-art1963.narod.ru/Form.jpg. Проблема в том, что это изображение получается за границей формы. Я не хочу перемещать его полностью на форму, но в то же время я без понятия, как это сделать.
Если кто-нибудь может помочь, пожалуйста, ответьте. |
|
#2
|
||||
|
||||
|
Читай про регионы. На этом форуме уже были подобные темы.
|
|
#3
|
||||
|
||||
|
Можно создавать компоненты вообще на экране ( на рабочем столе то бишь ).
Напр: Код:
var h: HWND;
b: TPanel;
procedure TForm1.FormCreate(Sender: TObject);
begin
h := GetDesktopWindow();
b := TPanel.Create(Owner);
b.Parent := Form1;
windows.SetParent(b.Handle, h);
b.Left := random(Screen.Width);
b.Top := random(Screen.Height);
b.Caption := 'Panel';
b.OnClick:=Form1.MouseClick;
end;
procedure TForm1.MouseClick(Sender: TObject);
begin
MessageBeep(0);
end;А на панель что угодно запихать можно, только для создаваемых на панели компонентов (TCanvas напр) ставь Код:
windows.SetParent(newcomp.Handle, b.Handle); |
|
#4
|
||||
|
||||
|
Спасибо. Но я уже сделал этот участок как отдельную форму.
|
|
#5
|
|||
|
|||
|
Цитата:
Ты не подскажешь как ты зделал меня тоже мучает эта проблема.... если не жалко отпишись... а вообще по хорошему нужна форма как в the bat т.е рисунок должен вылазить края формы кто нибудь знает как это сделать? Последний раз редактировалось Darkman, 03.10.2007 в 19:57. |
|
#6
|
||||
|
||||
|
Цитата:
|