Здравствуйте, жители форума! У меня возникла такая проблема - необходимо , чтобы при выборе определенной строки в ListBox на форме появлялась картинка (также ещё MediaPlayer), а затем при выборе другой строки - исчезала? Это осуществимо?

И такой еще вопрос - можно ли вставить GIF-анимацию на форму?

Помогите, пожалуйста!

[ryderx34]

Код:

// скрыть
Image1.Hide;
MediaPlayer1.Hide;
// показать
Image1.Show;
MediaPlayer1.Show;

[ChinYan]

можно еще

Код:

<имя компонента>.visible:=false; //скрыть
<имя компонента>.visible:=true; //показать

Спасибо огромное!

Снова здравствуйте! Извиняюсь за глупый вопрос, у меня тут проблема возникла...

Код:

case ListBox5.ItemIndex of
  0: Image30.Visible:=true;
  1: Image30.Visible:=false;
  Image31.Visible:=true;
end;

Необходимо при выборе строки в ЛистБоксе сделать видимым или невидимым несколько изображений одновременно. Делфи на меня ругается. Подскажите, пожалуйста, что делать? Заранне спасибо!

[lmikle]

Группу операторов помести в begin...end.

Код:

case ListBox5.ItemIndex of
  0: Image30.Visible:=true;
  1: 
    Begin
       Image30.Visible:=false;
       Image31.Visible:=true;
    End;
end;

Так, вроде понятно, спасибо.
У меня тут ещё одна непонятность...

Код:

procedure TForm1.ListBox5Click(Sender: TObject);
begin
Memo6.Clear;
case ListBox5.ItemIndex of
0: Memo6.Lines.Add('Некий текст');
Image29.Visible:=true;
Image30.Visible:=true;
end;
end;

Admin: Пользуемся тегами для оформления кода!

В общем, нужно одновременно с показом текста в Мемо показывать/скрывать изображения на форме. А Делфи всё ругается...
Пишет:
[Error] General.pas(228): Constant expression expected

[v1s2222]

Говорили же если надо писать несколько команд, пиши begin:

Код:

Memo6.Clear;
case ListBox5.ItemIndex of
0: begin Memo6.Lines.Add('Некий текст');
  Image29.Visible:=true;
  Image30.Visible:=true;
end;
end;

Хех, во я тупанул! Благодарю за помощь!

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



А оно воспроизводится в реальном своем размере, и в компоненте Animate, в том размере, который я поставил, виден лишь кусочек видео.

[v1s2222]

Возможно так...

Код:

Animate1.Transparent := False;

Не-а, не помогает. -(

Народ, у меня тут проблема такая... Мне нужно сделать свой оригинальный интерфейс для программы. Как убрать стандартное "виндовское" окно я понял. А как сделать так, чтобы окно программы можно было перетаскивать? Может кто помочь?

[v1s2222]

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 perform(WM_SysCommand, $F012, 0);
end;

Ага, спасибо огромное! Всё работает!

Сообщение от Garret-ZAV

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

А насчёт этого можете подсказать? (Извините, если я вам надоел со своими вопросами )