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

Вниз

Буфер данных   Найти похожие ветки 

 
13   (2006-01-30 17:37) [0]

в программе находятся кнопки вырезать копировать и вставить
как сделать так чтобы они были недоступны если в буфере ничего нет и доступны если в буфере находятся данные


 
begin...end ©   (2006-01-30 17:50) [1]

SetClipboardViewer + WM_DRAWCLIPBOARD


 
13   (2006-01-30 18:23) [2]

а пример можно?
P.S. также используется Memo


 
Pit ©   (2006-01-30 21:56) [3]

Попробуй это
если нажмёш Button1, Button2 будет не доступна если в буфере нет текста, очисти буфер Button2  потом нажми Button1.
procedure TForm1.Button1Click(Sender: TObject);
var
hwd: hWnd;
begin
OpenClipboard(0);
if GetClipboardData(CF_UNICODETEXT) = 0 then
Button2.Enabled:= False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EmptyClipboard ;
end;


Смотри  GetClipboardData(UINT uFormat);
Parameters
uFormat
[in] Specifies a clipboard format. For a description of the standard clipboard formats, see Standard Clipboard Formats .


 
Набережных С. ©   (2006-01-31 08:10) [4]


> Pit ©   (30.01.06 21:56) [3]

Тогда уж IsClipboardFormatAvailable. Или Clipboard.HasFormat.



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

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

Наверх




Память: 0.44 MB
Время: 0.046 c
15-1138451244
Хинт
2006-01-28 15:27
2006.02.19
Труп невесты


3-1135523459
turonix
2005-12-25 18:10
2006.02.19
Проблемы при создании ограничения на поле типа Date в Access


1-1137736871
Woland USSR
2006-01-20 09:01
2006.02.19
Сканер штрих-кодов и com-порт


15-1138480841
MetalFan
2006-01-28 23:40
2006.02.19
Новости VCL


15-1138036328
Loginov Dmitry
2006-01-23 20:12
2006.02.19
А что лучше Perl или PHP





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