Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Компонент на весь экран

Автор: Ak47black 25.8.2007, 19:28

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

Автор: ne0n 25.8.2007, 21:19

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;

Автор: Ak47black 25.8.2007, 23:17

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

Код


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

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

Код


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

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

Автор: RinOSpro 14.9.2007, 08:31

Цитата(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

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