Главная страница
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.045 c
14-1091688062
Cerber
2004-08-05 10:41
2004.08.22
Встреча


11-1079109894
Raki
2004-03-12 19:44
2004.08.22
PaintBox - bugs


14-1091795729
Stany
2004-08-06 16:35
2004.08.22
слет переключения раскладки в WinXP


3-1091195242
Dysan
2004-07-30 17:47
2004.08.22
Ошибка при загрузке библиотеки


14-1091816077
Денисыч
2004-08-06 22:14
2004.08.22
Вопрос про легальность Delphi