Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

MouseDown,MouseUp?   Найти похожие ветки 

 
Ivolg   (2004-08-09 19:44) [0]

Помогите плизз. Вопрос конечно Дурацкий но всё же! Есть такой код:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
caption:="LeftDown";
if button=mbRight then begin
caption:="RightDown";
end;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
    if button=mbLeft then
    caption:="LeftUp";
    if button=mbRight then begin
    caption:="RightUp";
   
end;
end;
end;
Проиходит какая то чертавщина. Нажимаю на правую появляется LeftUp или LeftDown. Короче одним словом глючит. ПОМОГИТЕ ПОЖАЙЛУСТО! ОЧЕНЬ НАДО!!!!!!!!! СПАСИБО!!!!


 
Мастер ©   (2004-08-09 19:52) [1]

У тебя лишние "end"

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if button=mbLeft then caption:="LeftDown";
 if button=mbRight then caption:="RightDown";
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if button=mbLeft then caption:="LeftUp";
 if button=mbRight then caption:="RightUp";
end;



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

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
3-1090582091
karat
2004-07-23 15:28
2004.08.22
Запрос к FireBird. Не хватает памяти.


3-1090927574
Stager
2004-07-27 15:26
2004.08.22
Экранный курсор crSQLWait


9-1083603796
Bim
2004-05-03 21:03
2004.08.22
Как передать управление процедуре?


1-1091799966
mouse_web
2004-08-06 17:46
2004.08.22
Привязка ProgressBar к поиску по базе


14-1091355954
dimon_programmer
2004-08-01 14:25
2004.08.22
Как достать темы для XP, подскажите!