Пьяный Дельфин от 28 января 2000

Hi !

Ну вот я и в Хопре. Первый в последнем году уходящего века выпуск без посторонней помощи. Соавторы на этой неделе развернулись не на шутку. Однако, лавры победителя снискал Sergeyev Dmitry, предвосхитивший развитие мультимедиа лет так на 20 вперед:
Люди как и в каком формате музыку в менюшки(окна) вставлять>?

Увы, традиционной становится селедка, скормленная дельфину любителями Великого и Могучего. :-(
Сегодня лауреатом литературной премии имени Шолохова стал Max Gorbunov:

Делфи чайник не нашол, так буду писать сюда. Как на делфи зделать скан каталога на придмет обнаружение файлом по маске.
на пасе я делал так
...
Вот надо на делфи зделать такое.

Проект доступен в OnLine по адресу: http://podgoretsky.com/DrunkenDolphin.html
(спасибо Анатолию Подгорецкому)

Все нижеприведенные материалы являются безусловной авторской собственностью соответствующих соавторов

22.01.2000 D.Masalimov

> Да и почему собственно не может быть нескольких экземпляров одной формы?. Может, но не присвоенных одному и тому же указателю. Соответственно, написать MyForm := TMyForm.Create(self);
MyForm := TMyForm.Create(self); нельзя.

22.01.2000 Anton Geleznyak (попался :-))

AS> А как записать текущую иконку пpиложения в Icon.Handle ? Icon.Handle:=Application.Handle;

22.01.2000 Alexander Khilov

Хочу сделать сабж, чтоб ехе-шник был по-меньше. Hе пойму как именно его оpганизовать. Подскажите плиз чего там кpутить : пpоект .dpr или .pas
?

23.01.2000 Dmitry Kuzan

procedure ____.KeyDown(var Key:Word;Shift:TShiftSTate);
begin
  if (Key=vk_Down) or (Key=vk_Up) or (Key=vk_Home) or (Key=vk_End)
  then Begin
    Case Key Of
      vk_Up :
      vk_Down :
      vk_End :
      vk_Home :
    end;
  end;
  inherited KeyDown(Key,Shift);
end;

23.01.2000 Dmitry Kuzan


l> Hет ли у кого примера создания интерфейса (пусть даже очень
простого) без
l> VCL
Конечно , это извращение без VCL на примерно смотри type
  TForm1 = class(TForm)
    Button1: TButton;
    BitBtn1: TBitBtn;
 [остаток примера - скипнут]

23.01.2000 Dmitry Kuzan

g> Как работать с USB портом?

Если ты знаешь номер порта и команды управления то можно через Port[]

24.01.2000 Valentin Ozerov

А что такое Memo? Визуализация TStrings (свойство Lines).

24.01.2000 Alexandr Zhivonitko

Подскажите, как приложению, сидящему в Tray, отловить события от клавиатуры или сообщения от другого приложения/dll? Пробовал SetWindowsHookEx(), но это работает, только если окно приложени активно.. Где руки кривые?

24.01.2000 Stanley Ivanenko

TPoint = record
  X: TLabel;
end;

var
  Form1: TForm1;
  TVector: array [1..100] of TPoint;
 А потом по ходу программы делать нечто такое: TVector[1].X.Caption:='Hello';
TVector[2].X.Caption:='world!!!';

24.01.2000 Mihail Babenov

арод подскажите как сделать след. вещь: при нажатии на определенную кнопку запускался бы hlp файл?

Подскажите, как приложению, сидящему в Tray, отловить события от клавиатуры или сообщения от другого приложения/dll? Пробовал SetWindowsHookEx(), но это работает, только если окно приложени активно.. Где руки кривые?

24.01.2000 Anton Nikolaev

Subject: Как Дельфи работает с базами данных?

САБЖ

25.01.2000 Victor Torgashov

Суть проблеммы такая: var
a: real;
s: String;
begin
  a:=123.34567;
  s:=FloatToStr(a); // В переменной s число 123.345669999951.
  ShowMessage(s); // Hа экра выводится соответственно 123.345669999951.
end; В чём проблемма, никогда таково небыло.

25.01.2000 Vadim Sharipov

Помоги пожалуйста сделать форму, чтобы она была Always on Top!!!

26.01.2000 Sergeyev Dmitry

Люди как и в каком формате музыку в менюшки(окна) вставлять>?

26.01.2000 Andrey Ulyanovskij

AS> Подскажите пожалуйста как заставить модем допустим висящий на COM2
AS> набрать номер, например 999-99-99 Write('COM2','ATDT9999999'); имхо так...:-)...

26.01.2000 Бутаков Игорь

Как перемещать форму у которой нет заголовка?
Перепробовал кучу способов, никак не получается.

В VBasic это легко сделать, чего теперь переходит на него?

27.01.2000 Wowa Savin

Type
  FileOfByte=File Of Byte;

Var
  f:FileOfByte;
  i:Integer;

Procedure SaveString(f_:FileOfByte;Const S:String);
Var
  f:File Absolute f_;
  L:LongInt;
  i:LongInt;
Begin
  L:=LenGth(S);
  BlockWrite(f,L,SizeOf(L));
  For i:=1 To L Do
    BlockWrite(f,S[i],SizeOf(S[i]));
End;

Procedure LoadString(f_:FileOfByte;Var S:String);
Var
  f:File Absolute f_;
  L:LongInt;
  i:LongInt;
  c:Char;
Begin
  S:=''
  L:=LenGth(S);
  BlockRead(f,L,SizeOf(L));
  For i:=1 To L Do
  Begin
    BlockWrite(f,c,SizeOf(c));
    S:=S+c;
  End;
End;

28.01.2000 Valery Shestakov

Здесь писали что если выполнить MyForm:=TMyForm.Create, то после MyForm.Free надо MyForm:=nil, и это совершенно верно, и прежде чем спорить сначала запустите делфю и попробуйте...

Я поначалу не верил (вот и дурак был), но прежде чем спорить советую попробовать все самим.

28.01.2000 Max Gorbunov

Делфи чайник не нашол, так буду писать сюда.
Как на делфи зделать скан каталога на придмет обнаружение файлом по маске.
на пасе я делал так
...
Вот надо на делфи зделать такое.

28.01.2000 Alexey Irshenko

> как научить дельфи понимать дос кодиpовку?
Ставь RxLib

Иконку в system tray (где часы) вставляют функцией Shell_NotifyIcon
Bye ... Тенцер А.Л. tolik@katren.nsk.ru
ICQ 15925834