Перейти к содержанию
  • Регистрация

Бука

Пользователи
  • Публикаций

    3
  • Зарегистрирован

  • Посещение

Информация о Бука

  • Звание
    Новичок

Информация

  • Пол
    Мужчина
  1. Всем привет. Хочу запустить программу в гугл маркет, а на последней стадии выдает вот такое. Что надо сделать, что бы убрать данное сообщение?
  2. Я думаю примерно вот так будет. uses System.IOUtils; procedure TMyForm.sbPlayClick(Sender: TObject); begin MediaPlayer.FileName:= TPath.GetDocumentsPath + PathDelim +'grouse_boy.mp3'; MediaPlayer.Play; tbRjabhucMusicTrek.Max := MediaPlayer.Duration; end; procedure TMyForm.sbStopClick(Sender: TObject); begin MediaPlayer.Stop; MediaPlayer.CurrentTime := 0; end; procedure TMyForm.Timer1Timer(Sender: TObject); begin tbRjabhucMusicTrek.Value := MediaPlayer.CurrentTime; end;
  3. Всем привет. Подскажите что делаю не так. Выходит ошибка Invalid class typecast. unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects, FMX.Controls.Presentation, FMX.StdCtrls; type TForm1 = class(TForm) Switch: TSwitch; Rectangle: TRectangle; Selection: TSelection; procedure SwitchSwitch(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.SwitchSwitch(Sender: TObject); begin { (Sender as TSelection).HideSelection := not(Sender as TSelection).HideSelection; (Sender as TSelection).HitTest := not(Sender as TSelection).HitTest; (Sender as TRectangle).HitTest := not(Sender as TRectangle).HitTest; } if Switch.IsChecked = true then begin (Sender as TSelection).HideSelection := false; (Sender as TSelection).HitTest := true; (Sender as TRectangle).HitTest := false; end else begin (Sender as TSelection).HideSelection := true; (Sender as TSelection).HitTest := false; (Sender as TRectangle).HitTest := true; end; end; end. Новая папка.zip
×
×
  • Создать...