Версия для печати темы

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

Форум KAZANHOME _ Все о программировании _ Delphi

Автор: makvit 11.10.2006, 22:05

Кто-нить может подсказать, как работать с классом TThread? (мультипоточность)

Автор: Cyber 12.10.2006, 11:15

через репозитарий создаешь модуль-заготовку Thread-Object
в тело метода Execute вписываешь свой код.

Автор: makvit 13.10.2006, 12:48

ну с этим я разобрался... а как теперь передавать данные с одного потока в другой?

Автор: Cyber 13.10.2006, 13:43

Цитата(makvit @ 13.10.2006, 13:48) *

ну с этим я разобрался... а как теперь передавать данные с одного потока в другой?

способов куча, тут все зависит от логики программы.
В основном все связано с передачей данных через общую память с использованием различных методов синхронизации доступа (мьютексы, семафоры, критические секции). Тут целая наука.

Рекомендую http://gurin.tomsknet.ru/articles.html, там пара хороших статей ;) и примеров на дельфи

Автор: makvit 13.10.2006, 13:43

сэнкс)

Автор: makvit 23.10.2006, 13:13

гы... как все быстро... седня получил курсовик по delphi. сказали написать с использованием класса TThread)))

Автор: Petunchik 26.10.2006, 14:02

Залейте пож книги по программированию на Delphi? У меня стоит Delphi7. Могу залить его дистрибутив если надо..

Автор: makvit 26.10.2006, 20:20

книг нет(. а дистрибутив кидай. зачем же спрашивать такие вещи? кидайте все, что есть. и жедательно в !soft!, чтобы потом в pub перекинули

Автор: erydit 12.11.2006, 19:39

А может быть у кого нибудь завалялись книги по Delphi? rolleyes.gif

Автор: Astynax84 5.12.2006, 8:59

Цитата(erydit @ 12.11.2006, 19:39) *

А может быть у кого нибудь завалялись книги по Delphi? rolleyes.gif


Есть всякие ЧаВо, и самоучителей пара. Есть сборники примеров. Надо?

Автор: Petunchik 10.12.2006, 12:49

Цитата(Astynax84 @ 5.12.2006, 8:59) *

Есть всякие ЧаВо, и самоучителей пара. Есть сборники примеров. Надо?



Естественно... good.gif

Автор: Astynax84 10.12.2006, 14:49

Цитата(Petunchik @ 10.12.2006, 12:49) *

Естественно... good.gif


Будет ФТП - будет и инфа smile3.gif

Автор: Astynax84 12.12.2006, 16:52

Вот кое что:
- Очень хороший http://file.kazandom.ru/get.php?f=38f38184a94cf1169a3d544eec742bfb вопросов-ответов,
- http://file.kazandom.ru/get.php?f=2e552ae6853e71aec11e45bdb48ac8c4 по Delphi 6 (подойдет и для старших)

Автор: erydit 14.12.2006, 22:06

Цитата(Astynax84 @ 12.12.2006, 16:52) *

Вот кое что:
- Очень хороший http://file.kazandom.ru/get.php?f=38f38184a94cf1169a3d544eec742bfb вопросов-ответов,
- http://file.kazandom.ru/get.php?f=2e552ae6853e71aec11e45bdb48ac8c4 по Delphi 6 (подойдет и для старших)

Спасибо!!! good.gif

Автор: Petunchik 17.12.2006, 13:27

Цитата(Astynax84 @ 12.12.2006, 16:52) *

Вот кое что:
- Очень хороший http://file.kazandom.ru/get.php?f=38f38184a94cf1169a3d544eec742bfb вопросов-ответов,
- http://file.kazandom.ru/get.php?f=2e552ae6853e71aec11e45bdb48ac8c4 по Delphi 6 (подойдет и для старших)





Спасибо, тока там самоучитель не открывается...

Автор: Almaz 19.12.2006, 16:51

а че легче????

Автор: DunasTu (v.3) 23.12.2006, 18:47

А че за ключ там ни фига не скачивается

Автор: Astynax84 24.12.2006, 19:11

Цитата(DunasTu (v.3) @ 23.12.2006, 18:47) *

А че за ключ там ни фига не скачивается


Я давно клал - срок истек. Надо? Если да - перевыложу. Могу оптом: то же + ещё. У меня немало инфы по Дельфе.

Автор: DunasTu (v.3) 24.12.2006, 23:23

Цитата(Astynax84 @ 24.12.2006, 19:11) *

Я давно клал - срок истек. Надо? Если да - перевыложу. Могу оптом: то же + ещё. У меня немало инфы по Дельфе.

Да если можно thanks good.gif

Автор: Astynax84 25.12.2006, 6:39

Цитата(DunasTu (v.3) @ 24.12.2006, 23:23) *

Да если можно thanks good.gif


http://file.kazandom.ru/get.php?f=a8b6cd92cc1e49cc87a63b908225dac7 побольше теперь. И на месяц smile3.gif
То, что было выше, тут тоже есть ;)

Если что - обращайся.

Автор: DunasTu (v.3) 25.12.2006, 16:55

Цитата(Astynax84 @ 25.12.2006, 6:39) *

http://file.kazandom.ru/get.php?f=a8b6cd92cc1e49cc87a63b908225dac7 побольше теперь. И на месяц smile3.gif
То, что было выше, тут тоже есть ;)

Если что - обращайся.

Отдуши good.gif

Автор: Petunchik 27.3.2007, 12:46

как заставить DElphi7 работать с jpg картинками? компонент Image выдает ошибку..

Автор: Pushistik 15.4.2007, 20:05

Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее.... unsure.gif

Автор: Bulvinkole 15.4.2007, 22:07

Цитата(Pushistik @ 15.4.2007, 21:05) *

Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее.... unsure.gif


Вот пример создания динамического списка... rolleyes.gif

unit bul_och;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit; // строчка, для завполнения (может быть что угодно - например Ф.И.О)*1
Edit2: TEdit; // строчка, для завполнения (может быть что угодно - например год рождения)*2
Button1: TButton; // кнопка добавления в список
Button2: TButton; // кнопка для показа списка
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

type
TPStudent = ^TStudent; //тип TStudent для указателя

TStudent = record
f_name: string[20]; // *1
l_name: string[20]; // *2
next: TPStudent; // следующий элемент списка
end;

var
head: TPStudent; // начало списка (шапка)

// добавление нового элемента в начало списка

procedure TForm1.Button1Click(Sender: TObject);
var
curr: TPStudent; // создание нового элемента для списка
begin
new(curr); // выделение памяти для нового элемента
curr^.f_name := Edit1.Text;
curr^.l_name := Edit2.Text;

// добавление нового элемента в начало списка
curr^.next := head;
head := curr;

// очищает поля ввода
Edit1.text := ′′;
Edit2.text := ′′;
end;

// показывает весь список

procedure TForm1.Button2Click(Sender: TObject);
var
curr: TPStudent; // элемент списка
n: integer; // колличество элементов списка
st: string; // строковый вывод списка
begin
n := 0;
st := ′′;
curr := head;
while curr <> nil do
begin
n := n + 1;
st := st + curr^.f_name + ′ ′ + curr^.l_name + #13;
curr := curr^.next;
end;

if n <> 0
then ShowMessage(′Список:′ + #13 + st)
else ShowMessage(′Список пуст.′);
end;

end.

Автор: Deja Vu 9.5.2007, 19:35

Цитата(Bulvinkole @ 15.4.2007, 23:07) *
Вот пример создания динамического списка... rolleyes.gif

Ой ужасть....
А "array [0..1] of array of string;" нельзя?!

Автор: Saferot 16.5.2007, 12:52

Народ ни у кого нет какойнить версии Delphi просто я уже замучился в нэте искать:( если есть скиньте на мыло
[email protected]. !!
ПЛИЗ ОЧ НАДО!!

Автор: Makvit 16.5.2007, 15:46

o_0. Образ диска на мыло я тебе скидывать не буду )
а так зайди на ftp://flashback.kazandom.ru/incoming/Programming/Delphi
там вроде и дистриб есть

Автор: DunasTu (v.3) 1.7.2007, 18:34

Люди нужно инфу про Стэки если есть у кого нить закиньте плизз

Автор: Makvit 2.7.2007, 12:59

Что именно интересует? Ничего из материалов нет, но можно самим что-нить вспомнить wink.gif

Автор: Astynax84 2.7.2007, 18:49

Цитата(DunasTu (v.3) @ 1.7.2007, 19:34) *

Люди нужно инфу про Стэки если есть у кого нить закиньте плизз


Ты, и в самом деле, приведи конкретный пример.
А то "инфу про стеки". И именно про стеки (LIFO)? Не про очереди (FIFO)?

Впрочем, приведу пример стека в простейшем виде.
Будет стек целых (integer) чисел.

Код

// Стек целых чисел (integer)
unit Stack;

interface

type
  // указатель на элемент стека
  PStackItem = ^TStackItem;

  // собственно, элемент стека
  TStackItem = record
    Value: integer;  // уначение
    PrevItem: PStackItem;  // указатель на предыдующий элемент. У первого элемента (в самом низу стека) PrevItem = nil
  end;

// процедура добавления числа в стек
procedure PushItem(var Stack: PStackItem; Value: integer);

// функция извлечения последного (верхнего) числа из стека
function PopItem(var Stack: PStackItem): integer;

implementation

procedure PushItem(var Stack: PStackItem; Value: integer);
var
  TmpItem: PStackItem;
begin
  // выделяем памят под новый элемент
  GetMem(TmpItem, SizeOf(TmpItem));

  // заполняем поле значения
  TmpItem^.Value := Value;

  // добавляем к данному элементу ссылку на предыдущий элемент
  TmpItem^.NextItem := Stack;
  
  // присваиваем указателю на сам стек указатель на новый элемент
  Stack := TmpItem;
end;

function PopItem(var Stack: PStackItem): integer;
var
  TmpItem: PStackItem;
begin
  // проверяем, не пуст ли стек
  if Stack = nil then

    // стек пуст - возвращаем "-1"
    Result := -1

  else begin

    // стек не пуст
    // получаем указатель на верхний элемент стека
    TmpItem := Stack;

    // получаем результат - значение элемента (целое число)
    Result := Stack^.Value;

    // передвигаемся к предыдущему элементу в стеке
    Stack := Stack^.NextItem;

    // освобождаем память, занимаемую извлеченным элементом
    Dispose(TmpItem);

  end;
end;

end.


Работаем со стеком так:

Создаем переменную - указатель на элемент стека:
Код

var
  Stack: PStackItem;


Обнуляем на всякий случай:
Код

Stack := nil;


Добавляем, к примеру, 3 числа:
Код

PushItem(Stack, 100);
PushItem(Stack, 200);
PushItem(Stack, 300);


Извлекаем все элементы из стека и выводим на печать:
Код

repeat
  WriteLn(PopItem(Stack));
until Stack = nil;


Получим:
"300"
"200"
"100"

У меня все сразу заработало wink.gif Набирал параллельно в Delphi wink.gif

Автор: DunasTu (v.3) 8.7.2007, 15:49

Цитата(Astynax84 @ 2.7.2007, 19:49) *

Ты, и в самом деле, приведи конкретный пример.
А то "инфу про стеки". И именно про стеки (LIFO)? Не про очереди (FIFO)?

Впрочем, приведу пример стека в простейшем виде.
Будет стек целых (integer) чисел.

Код

// Стек целых чисел (integer)
unit Stack;

interface

type
  // указатель на элемент стека
  PStackItem = ^TStackItem;

  // собственно, элемент стека
  TStackItem = record
    Value: integer;  // уначение
    PrevItem: PStackItem;  // указатель на предыдующий элемент. У первого элемента (в самом низу стека) PrevItem = nil
  end;

// процедура добавления числа в стек
procedure PushItem(var Stack: PStackItem; Value: integer);

// функция извлечения последного (верхнего) числа из стека
function PopItem(var Stack: PStackItem): integer;

implementation

procedure PushItem(var Stack: PStackItem; Value: integer);
var
  TmpItem: PStackItem;
begin
  // выделяем памят под новый элемент
  GetMem(TmpItem, SizeOf(TmpItem));

  // заполняем поле значения
  TmpItem^.Value := Value;

  // добавляем к данному элементу ссылку на предыдущий элемент
  TmpItem^.NextItem := Stack;
  
  // присваиваем указателю на сам стек указатель на новый элемент
  Stack := TmpItem;
end;

function PopItem(var Stack: PStackItem): integer;
var
  TmpItem: PStackItem;
begin
  // проверяем, не пуст ли стек
  if Stack = nil then

    // стек пуст - возвращаем "-1"
    Result := -1

  else begin

    // стек не пуст
    // получаем указатель на верхний элемент стека
    TmpItem := Stack;

    // получаем результат - значение элемента (целое число)
    Result := Stack^.Value;

    // передвигаемся к предыдущему элементу в стеке
    Stack := Stack^.NextItem;

    // освобождаем память, занимаемую извлеченным элементом
    Dispose(TmpItem);

  end;
end;

end.


Работаем со стеком так:

Создаем переменную - указатель на элемент стека:
Код

var
  Stack: PStackItem;


Обнуляем на всякий случай:
Код

Stack := nil;


Добавляем, к примеру, 3 числа:
Код

PushItem(Stack, 100);
PushItem(Stack, 200);
PushItem(Stack, 300);


Извлекаем все элементы из стека и выводим на печать:
Код

repeat
  WriteLn(PopItem(Stack));
until Stack = nil;


Получим:
"300"
"200"
"100"

У меня все сразу заработало wink.gif Набирал параллельно в Delphi wink.gif



Впринципе шаблон один и тот же, что для стэков , что для объектов-тока конструкторов и деструкторов нет.
Астинакс ты не мог бы привести пример объект комплексное число(Complex Object) плиз.

Автор: Astynax84 9.7.2007, 12:37

Цитата(DunasTu (v.3) @ 8.7.2007, 16:49) *

Впринципе шаблон один и тот же, что для стэков , что для объектов-тока конструкторов и деструкторов нет.
Астинакс ты не мог бы привести пример объект комплексное число(Complex Object) плиз.


Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей smile.gif Или я не так задачу понял?

Автор: DunasTu (v.3) 9.7.2007, 15:47

Цитата(Astynax84 @ 9.7.2007, 13:37) *

Можно просто сделать 2 поля с плавающей точкой - для мнимой и реальной частей smile.gif Или я не так задачу понял?

а смысл? huh.gif

Автор: Astynax84 9.7.2007, 16:04

Цитата(DunasTu (v.3) @ 9.7.2007, 16:47) *

а смысл? huh.gif


Ну тебе же нужен стек комплексных чисел? А их лучше всё-таки раскладывать на реальную и мнимую составляющие - операции с КЧ в таком виде давно подробно описаны в учебниках wink.gif А можно хранить в экспоненциальной форме smile.gif

З.Ы. Ты приведи таки конкретный пример - всем проще будет smile.gif

Автор: DunasTu (v.3) 10.7.2007, 13:09

ну допустим про стэк я вразумел biggrin.gif ,ну насчет Complex Object и вабше объект с этим напряги блин, добавления св-ва там и все такое, ну добавления св-ва впринципе понятно,а вот чисто шаблон алгоритма, где процедуры, где ф-ии и вабще чем легче управлять про-й или ф-ей, или взависимости от условия?

Автор: Astynax84 10.7.2007, 18:40

Цитата(DunasTu (v.3) @ 10.7.2007, 14:09) *

ну допустим про стэк я вразумел biggrin.gif ,ну насчет Complex Object и вабше объект с этим напряги блин, добавления св-ва там и все такое, ну добавления св-ва впринципе понятно,а вот чисто шаблон алгоритма, где процедуры, где ф-ии и вабще чем легче управлять про-й или ф-ей, или взависимости от условия?


Стек комплексных чисел в виде объектов - изврат полный ИМХО smile.gif Не наследоваться же от TObject wink.gif
Но кто мешает назвать структуру {StackItem = record...end} объектом?

А вот объект-стек это уже что-то. Но зачем нужен объект с 1 свойством (кол-во элементов) и 2 методами (добавление/изъятие).
Не нужно всё это smile.gif

Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова!

А далее - в зависимости от условий smile.gif Нужен калькулятор комплексных чисел - реализуешь математику КЧ. Нужны вычисления с использованием матриц КЧ - делаешь их.

Без конкретного описания задания - больше ничего не выжать.

Автор: DunasTu (v.3) 11.7.2007, 0:07

Цитата(Astynax84 @ 10.7.2007, 19:40) *

Помещаешь сам стек в unit. В interface помещаешь только обёртки - процедуры извлечения/добавления + функцию типа IsEmpty ("не_пуст_ли?"), а создание стека - в initialization. И все - основа готова!



А вот за это спс.

З.Ы. Потом еще обращусь если че biggrin.gif

Автор: Petunchik 23.7.2007, 18:29

Действия. Компонент TActionList

Это про что? Для чего необходимо?

Автор: Human 23.7.2007, 19:36

Цитата(Petunchik @ 23.7.2007, 19:29) *

Действия. Компонент TActionList

Это про что? Для чего необходимо?

Для того, чтобы навешивать одинаковую функциональность на несколько мест сразу - меню, кнопка, горячая клавиша.

Автор: DunasTu (v.3) 25.7.2007, 0:00

Цитата(Petunchik @ 23.7.2007, 19:29) *

Действия. Компонент TActionList

Это про что? Для чего необходимо?

типа шаблона

Автор: Astynax84 26.7.2007, 19:07

Цитата(Human @ 23.7.2007, 20:36) *

Для того, чтобы навешивать одинаковую функциональность на несколько мест сразу - меню, кнопка, горячая клавиша.


+ при этом будет одинаковая картинка у пункта меню, у кнопки на панели инструментов. Enable тоже регулируется свойствами акции и отражается сразу на всех элементах управления, связанных с данной акцией.

Автор: Petunchik 9.8.2007, 17:46

почему на TSpinEdit не отображаются стрелочки изменения св-ва value (во время работы программы)?

Автор: DRIVE 20.3.2008, 13:13

помогите плииз с коментами для этой мелокой лабы для универа надо(
ftp://digital.kazandom.ru/incoming/DRIVE/ZAKAZI/1.rar

Автор: remotes 24.3.2008, 4:57

Может кому надо литература по Delphi!!!
Большой фак (delphi-bigfaq.rar)
http://depositfiles.com/files/4108140
http://letitbit.net/download/a4071f100297/delphi-bigfaq.rar.html
Большой фак (delphi-faq-1.0.rar)
http://depositfiles.com/files/4108150
http://letitbit.net/download/6d3c97569395/delphi-faq-1.0.rar.html
WIN API (WIN API.rar)
http://depositfiles.com/files/4108153
http://letitbit.net/download/d41d1f936604/WIN-API.rar.html
Программа выключения компьютера по таймеру
http://depositfiles.com/files/4074024
http://letitbit.net/download/96e3d5219602/----------------.exe.html
Horrifik Учебник по Delphi
http://depositfiles.com/files/4126167
http://letitbit.net/download/06c229468722/Horrific---------Delphi.rar.html
Delphi Быстрый старт
http://depositfiles.com/files/4126190
http://letitbit.net/download/b1d654844272/Delphi-BystryiStart.zip.html
Delphi глазами хакера
http://depositfiles.com/files/4126220
http://letitbit.net/download/89d35e530193/Delphi-GlazamiXakepa.zip.html
OpenGL в проектах Delphi
http://depositfiles.com/files/4126260
http://letitbit.net/download/14b8a6735473/Open-GL-grafika-v-proektax-Delphi.zip.html

Автор: $RamireZ$ 13.5.2008, 9:50

Здравствуйте господа-программисты
НЕобходима идея какой нибудь программки для небольшого проекта
Условие:С использованием только палитры компонентов Standart. russian_roulette.gif
umnik2.gif

Автор: Deja Vu 13.5.2008, 16:50

Цитата($RamireZ$ @ 13.5.2008, 10:59) *

Здравствуйте господа-программисты
НЕобходима идея какой нибудь программки для небольшого проекта
Условие:С использованием только палитры компонентов Standart. russian_roulette.gif
umnik2.gif

Блокнот пиши с использованием WinAPI.
rofl.gif

Автор: $RamireZ$ 13.5.2008, 21:31

Цитата(Deja Vu @ 13.5.2008, 17:59) *

Блокнот пиши с использованием WinAPI.
rofl.gif

а если реально? nono.gif angry2.gif

Автор: Ap}{@HrE/l 14.5.2008, 22:11

Цитата($RamireZ$ @ 13.5.2008, 22:40) *

а если реально? nono.gif angry2.gif

Стандартно калькулятор либо часы.

Автор: $RamireZ$ 15.5.2008, 16:12

Цитата(Ap}{@HrE/l @ 14.5.2008, 23:20) *

Стандартно калькулятор либо часы.

Калькуля тор мы еще на первом уроке делали... smile3.gif
А вот часы-слишком распространенный вариант
надо что0нить такое необычное yu.gif

Автор: Inhuman 15.5.2008, 19:58

Цитата($RamireZ$ @ 15.5.2008, 17:21) *

Калькуля тор мы еще на первом уроке делали... smile3.gif
А вот часы-слишком распространенный вариант
надо что0нить такое необычное yu.gif

Простенькую систему тестирования можно сделать:
из файла считываются вопросы и варианты ответов
юзер тыкает на кнопки, отвечает на вопросы
в конце ему выставляется оценка

Автор: $RamireZ$ 15.5.2008, 22:27

Цитата(Inhuman @ 15.5.2008, 21:07) *

Простенькую систему тестирования можно сделать:
из файла считываются вопросы и варианты ответов
юзер тыкает на кнопки, отвечает на вопросы
в конце ему выставляется оценка

вот это уже поинтересней... ok.gif спасибо,подумаю над этим
Предложения принимаются до середины июня(примерно) umnik2.gif

Автор: Fahrenheit 16.5.2008, 12:53

Цитата($RamireZ$ @ 15.5.2008, 23:36) *

вот это уже поинтересней... ok.gif спасибо,подумаю над этим
Предложения принимаются до середины июня(примерно) umnik2.gif

чат для локалки пиши, на протоколе udp или tcp/ip. Ничего сложного там нет

Автор: RamireZ 16.5.2008, 16:41

Цитата(Fahrenheit @ 16.5.2008, 14:02) *

чат для локалки пиши, на протоколе udp или tcp/ip. Ничего сложного там нет

Думаю на это моих знаний не хватит:(

Автор: RamireZ 21.5.2008, 19:01

В качестве проекта мне задали проигрыватель... umnik2.gif
Так вот:
1)как сделать так,тчобы при отображении видео на панель она автоматически подгонялась под размер видео
2)как описать кнопки Стоп(не путать с паузой)
3)можно ли сделать прокрутку видео как в WindowsMediaPlayer?(т.е что бы при прокрутке полоски длительности видео оно перематывало видео в то же положение) russian_roulette.gif
unknw.gif

Автор: Fahrenheit 21.5.2008, 22:20

Цитата(RamireZ @ 21.5.2008, 20:10) *

В качестве проекта мне задали проигрыватель... umnik2.gif
Так вот:
1)как сделать так,тчобы при отображении видео на панель она автоматически подгонялась под размер видео
2)как описать кнопки Стоп(не путать с паузой)
3)можно ли сделать прокрутку видео как в WindowsMediaPlayer?(т.е что бы при прокрутке полоски длительности видео оно перематывало видео в то же положение) russian_roulette.gif
unknw.gif

www.delphiworld.narod.ru тебе в помощь =) там полно статей на эту тему

Автор: RamireZ 22.5.2008, 0:46

Цитата(Fahrenheit @ 21.5.2008, 23:29) *

www.delphiworld.narod.ru тебе в помощь =) там полно статей на эту тему

А для чего тогда этот форум?smile3.gif
P.S:на внешку денег нет

Автор: RamireZ 24.5.2008, 17:44

Цитата(RamireZ @ 21.5.2008, 20:10) *

В качестве проекта мне задали проигрыватель... umnik2.gif
Так вот:
1)как сделать так,тчобы при отображении видео на панель она автоматически подгонялась под размер видео
2)как описать кнопки Стоп(не путать с паузой)
3)можно ли сделать прокрутку видео как в WindowsMediaPlayer?(т.е что бы при прокрутке полоски длительности видео оно перематывало видео в то же положение) russian_roulette.gif
unknw.gif

Неужели нет программеров? umnik2.gif acute.gif

Автор: fatal 24.5.2008, 22:48

это всё шлак ) ну я в университете программировал на делфи пару лет
хотя я на мехмате учусь а не на вмк )
а проигрыватель реально тупо по книжке сделать ниче особенного

Автор: RamireZ 10.6.2008, 15:02

как из компонента FileListBox удалить строку?

Автор: Grey 10.6.2008, 17:49

Если нужно исключить какие-то файлы из списка, то свойство Mask, если же удалить конкретную строку то:
FileListBox.Items.Delete(индекс_строки).

Автор: RamireZ 10.6.2008, 18:34

Цитата(Grey @ 10.6.2008, 18:58) *

Если нужно исключить какие-то файлы из списка, то свойство Mask, если же удалить конкретную строку то:
FileListBox.Items.Delete(индекс_строки).

Необходимо,чтобы при выборе строки в FileListBox,а затем вызове контекстного меню, при нажатии на пункт"Удалить" удалялась именно выбранная строка

Автор: Deja Vu 10.6.2008, 19:21

Цитата(RamireZ @ 10.6.2008, 19:43) *

Необходимо,чтобы при выборе строки в FileListBox,а затем вызове контекстного меню, при нажатии на пункт"Удалить" удалялась именно выбранная строка

господи боже -))
Вам нужно удалить выбранную строку?
Ну и где ваше логика ... смотрите у элемента выбранную строку и удаляете её индекс.
Соответствующие свойства и методы у объе
кта есть, причем метод удаления вам подсказали, осталось посмотреть в любом справочнике(или в хелпе идущим с делфей) свойство объекта, которое указывает индекс выбранного элемента.

Автор: RamireZ 10.6.2008, 19:39

Цитата(Deja Vu @ 10.6.2008, 20:30) *

господи боже -))
Вам нужно удалить выбранную строку?
Ну и где ваше логика ... смотрите у элемента выбранную строку и удаляете её индекс.
Соответствующие свойства и методы у объе
кта есть, причем метод удаления вам подсказали, осталось посмотреть в любом справочнике(или в хелпе идущим с делфей) свойство объекта, которое указывает индекс выбранного элемента.


Просьба несудить меня строго,я пока еще нахожусь в стадии обучения umnik2.gif
Все ошибку обнаружил,просто ступил с самим выделением всем помогавшим,спасибо.

Автор: RamireZ 9.9.2008, 20:09

Непонимаю в чем проблема:нажимаю на иконку Delphi и он мне выдает окошко со следующей надписью

"Borland license information was found,but it is not valid for Delphi.
You can not run delphi without this information."

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

Автор: Troyan 24.9.2008, 19:22

Ребят нет ни у кого Делфи девелопмент студио 2006 буду благодарен

Автор: RamireZ 1.10.2008, 18:53

Как можно узнать размеры рисунка при его загрузке?
и после этого сохранить его с другими размерами?

Автор: че за дела? 26.7.2009, 20:33

дайте пожалуйста какие-нибудь книги/учебники по Delphi 7 на русском
для новичков
тока скачал ее
)

Автор: MAJIbEP 23.12.2009, 17:48

Нужен человек который хорошо разбирается в delphi! ответ в аську

Автор: MAJIbEP 26.12.2009, 16:07

есть такие? мне помощь нужна!..

Автор: karasi 26.12.2009, 16:13

а говорил, не нужна smile3.gif

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)