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

Вниз

как сделать лучше?   Найти похожие ветки 

 
werr   (2003-01-31 10:19) [0]

Нужна программа : нажал кнопку и в буфер скопировалась строка, т.е. Clipboard.AsText := "ааа"; А как грамотнее это оформить? Т.е. в какое событие какого итема засунуть? Application, неверное, не очень подходит.


 
Digitman   (2003-01-31 11:19) [1]


> нажал кнопку


Вот в обработчик события КнопкаClick() и "засовывай"... если уж очень "засунуть" хочется)))


 
Separator   (2003-01-31 11:39) [2]

Clipboard.SetTextBuf(PChar("Текст"));


 
werr   (2003-01-31 16:35) [3]

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

Сейчас сделал
procedure TForm1.FormActivate(Sender: TObject);
begin
Clipboard.AsText := "ааа";
Form1.Close;
end;

но тогда при запуске такой иконки на 1 сек появляется форма а потом исчезает, что не очень красиво

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


 
Андрей Сенченко   (2003-01-31 16:42) [4]

убрать форму


 
Digitman   (2003-01-31 16:56) [5]

ну что-то типа этого, наверно:

program ...
uses
Clipbrd;
begin
Clipboard.AsText := "ааа";
end.


 
Андрей Сенченко   (2003-01-31 17:18) [6]

werr (31.01.03 16:35)

идея проста - при старте нового проекта Delphi Тебе сразу предлагается пустая форма. Но использовать ее Тебя никто не заставляет - просто удаляещь из текущего проекта Unit1, а весь код пишешь собственно в программе.



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

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

Наверх





Память: 0.46 MB
Время: 0.008 c
9-28568
Armageddon
2002-08-31 11:15
2003.02.10
Разное


1-28694
koly01
2003-01-29 15:02
2003.02.10
помогите разобраться с Tservice


3-28670
AALLEEXX
2003-01-22 15:51
2003.02.10
Картинке в сетке RXdbGrid


14-29009
gn
2003-01-23 06:42
2003.02.10
А вообще кто вочто верит


6-28975
Klaz
2002-12-17 08:21
2003.02.10
Как узнать IP-адрес???





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