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

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

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

[ryderx34]

Код:

1 2 3 4 5 6

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

[ChinYan]

можно еще

Код:

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

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

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

Код:

1 2 3 4 5

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

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

[lmikle]

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

Код:

1 2 3 4 5 6 7 8

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

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

Код:

1 2 3 4 5 6 7 8 9

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:

Код:

1 2 3 4 5 6 7

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

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

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



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

[v1s2222]

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

Код:

1	Animate1.Transparent := False;

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

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

[v1s2222]

Код:

1 2 3 4 5 6

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

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

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

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

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