VPF::Компонент на весь экран - Форум программистов

Ak47black

Дата 25.8.2007, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Здравствуйте.
Вообшем я не делал некогда приложения на весь экран.
Я хотелбы сделать чтобы при нажатии кнопки компонент TScrollBox лежащий на форме отображался на весь экран и перекрывал все что видно, включая старт меню и т.п.
Какие есть способы это сделать?

ne0n

Дата 25.8.2007, 21:19 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 1
Всего: 11

Ak47black, ну вообще мне кажеться это скорей в Общие Вопросы smile

но это наверно делаеться так:

Код



procedure TForm1.Button1Click(Sender: TObject);
var 
  HTaskbar: HWND; 
  OldVal: LongInt; 
begin 

  ScrollBox1.Align:=alclient;

  try 
    HTaskBar := FindWindow('Shell_TrayWnd', nil); 
    SystemParametersInfo(97, Word(True), @OldVal, 0); 
    EnableWindow(HTaskBar, False); 
    ShowWindow(HTaskbar, SW_HIDE); 
  finally 
    with Form1 do  
    begin 
      BorderStyle := bsNone; 
      FormStyle   := fsStayOnTop; 
      Left        := 0; 
      Top         := 0; 
      Height      := Screen.Height; 
      Width       := Screen.Width; 
    end; 
  end 
end;

--------------------

http://sa-sec.org
как я вам? smile

Ak47black

Дата 25.8.2007, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Ок. На весь экран изобразить получилось.
Только вот что еше, если я делаю у ScrollBoxа

Код


TScrollBox.HorzScrollBar.Visable:= False;
TScrollBox.VertScrollBar.Visible:= False;

По почемуто немогу никак прокрутить программно

Код


TScrollBox.HorzScrollBar.Position:= 500; // Ничего не происходит :(

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

RinOSpro

Дата 14.9.2007, 08:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(ne0n @ 25.8.2007, 21:19

)

но это наверно делаеться так:
  try
    HTaskBar := FindWindow('Shell_TrayWnd', nil);
    SystemParametersInfo(97, Word(True), @OldVal, 0);
    EnableWindow(HTaskBar, tRUE);
    ShowWindow(HTaskbar, SW_SHOWNORMAL);

ЗАЧЕМ ТАК СЛОЖНО

Код


with Form1 do
    begin
      BorderStyle := bsNone;
      FormStyle   := fsStayOnTop;
      Align := alNone;
      WindowState := wsMaximized;
    end;

вот так лучше по моему и прокрутка програмная работает

Добавлено через 7 минут и 57 секунд
сорри не усмотрел

TScrollBox.HorzScrollBar.Visable:= False;
TScrollBox.VertScrollBar.Visible:= False;

Цитата(Ak47black @ 25.8.2007, 23:17

)

По почемуто немогу никак прокрутить программно

а ты и не сможешь. Лучше двигай компоненты которые в внутри. Если image к примеру тогда

Код


image1.left := image1.left + 500

ну или как тебе надо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »