Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 24.12.01 09:04

Объявление
Продам ноутбуки б/у (Новосибирск).
e-mail: s_wr@mail.ru ICQ 93229204 тел. (383-2) 233-771, 239538 Обновился дайджест по FAQ. Скачать можно здесь
Лучшее из нашего FAQ   |x|
Как перемещать компонент мышкой во время работы программы "runtime"?
Перехватить событие OnMouseDown, запомнить x и y координты курсора мыши. Отслеживать движение мыши по событию OnMouseMove и перемещать компонент вслед за курсором мыши до тех пор пока не произойдет событие OnMouseUp. В примере показано перемещение компонента TButton. Перемещение начинается, когда пользователь "берет" TButton мышью, удерживая нажатой клавишу "Сontrol".
Пример:

type
    TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
                Shift: TShiftState; X, Y: Integer);
        procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
                Y: Integer);
        procedure Button1MouseUp(Sender: TObject; Button: 
                TMouseButton; Shift: TShiftState; X, Y: Integer);
    private
        {Private declarations}
    public
        {Public declarations}
        MouseDownSpot : TPoint;
        Capturing : bool;
end;

var
    Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
                    Shift: TShiftState; X, Y: Integer);
begin
    if ssCtrl in Shift then
    begin 
        SetCapture(Button1.Handle);
        Capturing := true;
        MouseDownSpot.X := x;
        MouseDownSpot.Y := Y;
    end;
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
    if Capturing then
    begin
        Button1.Left := Button1.Left - (MouseDownSpot.x - x);
        Button1.Top := Button1.Top - (MouseDownSpot.y - y);
    end;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button:
            TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if Capturing then
    begin
        ReleaseCapture;
        Capturing := false;
        Button1.Left := Button1.Left - (MouseDownSpot.x - x);
        Button1.Top := Button1.Top - (MouseDownSpot.y - y);
    end;
end;



Источник: Дельфи. Вокруг да около.


»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Вопрос о MDI окнах
    Народ, распахиваю два окна. В каждом окне на Canvos рисую разную информацию. Но после того как я возражаюсь к первому ...
  • Вопрос о MDI окнах
    Народ, распахиваю два окна. В каждом окне на Canvos рисую разную информацию. Но после того как я возражаюсь к первому ...
  • Отправка данных в LPT
    Как в порт LPT1(не принтеру) отослать данные например Byte?
  • помогите с отчетом
    Скажите пожалуйста, как программно в Delphi задать параметр страницы "Альбомная" в Word-ом отчете
  • Помогите плз!!
    Создал программу работающию с базами данных(Delphi 5), откомпилировал. создал дистрибутив с помощью InstallShild ...
  • Как в IB с помощью SQL запроса получить метаданные определенной таблицы?
    Как в IB с помощью SQL запроса получить метаданные определенной таблицы? Или как просмотреть blob поля?
  • DBGrid
    Можно ли столбцы компонента DBGrid использовать как СheckBox и как это лучше сделать
У нас большой выбор статей   |x|
Обзор Kylix. Работа с клиентскими наборами данных.
В данной части будет рассмотрено применение клиентских наборов данных в dbExpress. Согласно иерархии классов в Kylix к клиентским наборам данных относятся классы TSQLClientDataSet и TClientDataSet. Последний из них является частью технологии MIDAS. Так как на сегодняшний день поддержка данной технологии в Kylix до конца не реализована, то основное внимание мы уделим рассмотрению TSQLClientDataSet.
Новинки книжного рынка   |x|
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
Другие сайты о DELPHI   |x|
::: Форум для программистов :::
Только на этом сайте ваш вопрос по программированию не останеться без ответа!
Опрос населения :)
Какой раздел сайта вам больше нравится?
»»» FAQ
»»» Статьи
»»» Новости мира компонент
»»» Форумы
»»» Компоненты
»»» База по другим сайтам
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!

Для души

Хокку дня
Сентябрьских яблок
Тонкая кислинка,
И губ твоих...

Афоризмы
Жизнь бывает долгой, если долгой бывает старость... (Севрус)

Фраза дня
Объявление: общительная, симпатичная девушка без комплексов продаст вагон цемента

И на закуску коротенький анекдот
- У моей бабули до сих пор лежит Евангелие 1804 года издания
- Ух ты! Небось, еще на 5-ти дюймовых дискетах

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=8451

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное