| Автор
| Сообщение |
|
|
|
Цитата |
|
1) Скажите пожайлуста как в Image1.Picture засунуть картинку, которая находиться в буфере обмена? 
2) И скажите как сделать чтобы внизу возле часов была маленькая иконка, и когда на неё кликаешь, открывается небольшая панелька?
|
|
| В начало |
|
 |
|
|
 |
 Шурик
Я живу тут....
Возраст: 42
Знак зодиака: 
Зарегистрирован: 15.01.2003
Сообщения: 1951
Откуда: Киев
|
|
|
Цитата |
|
1). Как-то через стандартный объект Clipboard: TClipboard. Если найду пример как это делать для картинок - выложу.
2). В разделе "Компоненты, утилиты, программы" KyRo выложил свой компонент для работы с tray
_________________
Ответ готов, готов ли твой вопрос? |
|
| В начало |
|
|
|
|
|
Цитата |
|
| И ещё скажите позайлуста код клавиши Print Scrin |
|
| В начало |
|
|
Шурик
Я живу тут....
Возраст: 42
Знак зодиака:
Зарегистрирован: 15.01.2003
Сообщения: 1951
Откуда: Киев
|
|
|
Цитата |
|
1). Попробуй Image1.Picture.Assign( Clipboard )
Только в uses добавь Clipbrd
| Цитата: | | И ещё скажите позайлуста код клавиши Print Scrin |
А она ловится? Если да, то посмотри сам так:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
ShowMessageFmt( 'Key = %Xh', [Key] );
end;
_________________
Ответ готов, готов ли твой вопрос? |
|
| В начало |
|
|
|
|
|
Цитата |
|
Если пишу
ShowMessageFmt( 'Key = %Xh', [Key] );
Она вызывает какуюто ошибку, а если написать
ShowMessage(StrToInt(Ord(Key)));
Тогда Print Scrin не определяется!
Помогите! |
|
| В начало |
|
|
Gelios
Oracle-вый маньяк, Админ
Возраст: 37
Знак зодиака: 
Зарегистрирован: 10.03.2005
Сообщения: 6141
Откуда: Яблочный рай
|
|
|
Цитата |
|
Ну PrintScreen вроде бы была системной клавишей и ее нужно перехватывать обрабатывая сообщение WM_SYSCOMMAND (вроде это) или перегрузить метод WMSysCommand (если получиться)
_________________
нельзя давать всем всего, ибо всех много, а всего мало |
|
| В начало |
|
|
|
