Главная страница
    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.45 MB
Время: 0.008 c
14-29077
Anton
2003-01-23 10:54
2003.02.10
Какие параметры у функции ShellExecute


14-29011
VictorT
2003-01-22 15:13
2003.02.10
А кто тут английский знает?


14-29016
Andy BitOff
2003-01-23 14:01
2003.02.10
Какую книгу купить?


1-28710
tga
2003-01-31 11:09
2003.02.10
XML + Delphi... как?


1-28794
anonymos
2003-02-01 19:16
2003.02.10
Поиск





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