Вниз
Скачать: CL | DM;

DblClick для RichEdit а и анимированная иконка для трэя   Найти похожие ветки 

 
Azon ©   (2004-04-11 03:59) [0]

Следующие 2 вопроса. :))
1. Как для RichEdit"а сделать обработчик события OnDblClick. При этом бы не хотелось создавать новый компонент.
2. Как в трэй добавить анимированную иконку и как ее менять в процессе? Как добавить обычную а знаю, так что можете особенно не разжевывать (если, конечно, это хоть немного похоже).

Верю в поддержку.


 
Fay ©   (2004-04-11 04:13) [1]

Просто меняй иконку то таймеру.


 
Azon ©   (2004-04-11 04:34) [2]

Это так реализуется? Я думал есть какой-нибудь более нормальный способ. :)) Thanks to Fay. Но вопрос еще открыт. Вдруг более нормальный способ всеже существует. :))


 
Fay ©   (2004-04-11 05:12) [3]

Смена иконки - это и есть анимация 8)
>> Это так реализуется?
Как добавление. Только не NIM_ADD, а NIM_MODIFY 8)


 
Azon ©   (2004-04-11 05:42) [4]

Я думал, что закладываешь куда-нибудь анимированную иконку (или серию иконок), а Windows уже сам их меняет. Thanks to Fay еще раз.
НО первый вопрос остается в силе!


 
Fay ©   (2004-04-11 06:06) [5]

Типа этого
type
 TForm1 = class(TForm)
................
 private
   procedure AnyOnDblClick(Sender : TObject);
...........
 end;
 

 TCoolAzonRichEdit = class(TCustomMemo)
 public
   property OnDblClick;
 end;

var
 Form1 : TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 TCoolAzonRichEdit (RichEdit1).OnDblClick := AnyOnDblClick;
end;

procedure TForm1.AnyOnDblClick(Sender : TObject);
begin
 ShowMessage("Cool!!");
end;

end.


 
Azon ©   (2004-04-11 06:39) [6]

Еще один комплимент в адрес Fay!
Спасибо, ты лучший! ;))


 
Fay ©   (2004-04-11 06:59) [7]

8))



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c
3-1080716239
Timur
2004-03-31 10:57
2004.04.25
DBF в delphi


1-1081310743
BanderLog
2004-04-07 08:05
2004.04.25
MouseWheel - Up & Down для PaintBox


11-1065510579
Ал
2003-10-07 11:09
2004.04.25
D6 под XP - непредсказуемо увеличивается размер exe на 40 к


6-1078114631
Svart
2004-03-01 07:17
2004.04.25
Получение информации о компьютерах в сети...


14-1080634026
Фикус
2004-03-30 12:07
2004.04.25
Вопрос по Excel




   Наверх