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

Вниз

Проблема с ActionToolBar: кнопка выглядит нажатой.   Найти похожие ветки 

 
AlexanderMS ©   (2006-07-08 18:55) [0]

Я использую ActionToolBar. (Панель инструментов в стиле XP). После нажатия на кнопку появляется новое окошко (OpenDialog или AboutBox - не имеет значения), а кнопка выглядит так, как будто она находится в нажатом состоянии. После закрытия окошка "рамка и прозрачный синий квадратик" с кнопки не исчезают (а всё должно было сразу исчезнуть). После наведения мышкой и последующего перемещения мышки кнопка выглядит нормально. Но, тем не менее, это похоже на баг, и выглядит не очень красиво. Подскажите, пожалуйста, как самостоятельно вернуть
кнопку в первоначальное состояние?

Пробовал Repaint, Invalidate панели, ProcessMessages перед открытием окошка и после - ничего не помогает.


 
Footballer ©   (2006-07-08 19:17) [1]

А ты пробывал открывать окошко в событии OnMouseUp?


 
Footballer ©   (2006-07-08 19:55) [2]

Ой, я уже понял, что так не выйдет, сам раньше с этим сталкивался, я так оставил, но если тебе это очень надо, то вот:
........................................

var
 Form1: TForm1;
 i:boolean;

implementation

{$R *.dfm}

procedure TForm1.DsFancyButton1Click(Sender: TObject);
Begin
 i:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i then
 begin
   i:=false;
   OpenDialog1.Execute;
 end;
end;

end.



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

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

Наверх




Память: 0.45 MB
Время: 0.01 c
15-1152008620
Norik
2006-07-04 14:23
2006.07.30
Делфи компонент


2-1152266882
Diksa
2006-07-07 14:08
2006.07.30
Новая запись


2-1152324813
antoxa2005
2006-07-08 06:13
2006.07.30
Что это:подключение не установлено т.к. конечный компьютер отверг


2-1152258635
Homo Sapiens
2006-07-07 11:50
2006.07.30
И снова плейлист


2-1152535365
zdm
2006-07-10 16:42
2006.07.30
FREE





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский