Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Вниз

Системный таймер   Найти похожие ветки 

 
Sniffer   (2002-04-15 23:15) [40]

>> kull
Ты хочешь сказать, что такой код работает?
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Kiss; stdcall;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure Kiss; stdcall;
begin
beep
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetTimer(Application.Handle, 0, 1000, @Kiss)
end;
end.



 
kull   (2002-04-15 23:23) [41]

да.


 
kull   (2002-04-15 23:25) [42]

Насчет работы в Runtime не проверял, но при компиляции ошибок не выдает.


 
Sniffer   (2002-04-15 23:27) [43]

>> kull
Вот блин! Нивезуха! У всех усё пашет, а умене точно такой же код даже не компилируется! У мене всё та же дурацкая ошибка :
[Error] Unit1.pas(37): Variable required !!!!!!!!!!!!!!!!!!!!!!!!!


 
kull   (2002-04-15 23:36) [44]

Слушай,ну не знаю, у меня Delphi6


 
Sniffer   (2002-04-15 23:41) [45]

Всё сенкс! До жирафа дошло!
>> Анатолий Подгоретский
Я понял, о чём вы говорили, я чуток лопухнулся сорри.
>> kull
Я тя наверно чуток достал, извени :))
>> Всем всем
Спасибо!!!!!!!!!!!!!


 
Anatoly Podgoretsky   (2002-04-15 23:45) [46]

Ну тебе сказали же, это не может быть методом класса, а только отдельной процедурой, а ты продолжаешь настаивать, вон и kull(а) уже запутал, хотя сначала он тебе правильно указал на эту ошибку.


 
Aleks1   (2002-04-16 02:58) [47]

> Anatoly Podgoretsky © (15.04.02 10:18)

>>Aleks1 (15.04.02 05:38)
>>Для начала смотрим, что там не 0, а Application.Handle, затем
>>срочно идем в СРР и узнаем что такое UINT, и что такое NULL, >>после этого возрвращаемя сюда и говорим, что писать в данном >>случае нужно 0

UINT - это и ежу ясно - Unsigned Integer;
Другое дело, что, по-моему, хэлп Д4 виноват!
Написано:
nIDEvent
Specifies a nonzero timer identifier. If the hWnd parameter is NULL, this parameter is ignored.

Должно быть:
nIDEvent
Specifies a nonzero timer identifier. If the hWnd parameter is NOT NULL, this parameter is ignored.



Страницы: 1 2 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.79 MB
Время: 0.025 c
3-94340
hn
2002-04-09 17:25
2002.04.29
Семейство Tquery


1-94359
NS
2002-04-17 11:57
2002.04.29
Нужно в RUN-Time создавать экземпляры некоторых объектов (для при


1-94466
Катерина
2002-04-15 11:03
2002.04.29
Добавление-удаление фреймов


3-94314
agrig
2002-04-08 00:27
2002.04.29
Как узнать, Есть ли detail-записи?


1-94416
ListView
2002-04-17 19:42
2002.04.29
Как в ЛистВиеве при щелчке на каком нибуть итемсе получить егоимя





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский