|
Страници по тази тема: 1 | 2 | >> (покажи всички)
Тема
|
Button push
|
|
Автор | Button (Нерегистриран) |
Публикувано | 16.03.12 00:41 |
|
Бих искал при натискане на бутон да се появява лабел а при пускането на бутона за изчезва. Как да стане това? Не ми трябва да натисна да го включа и пак да натисна за да го изключа.
| |
Тема
|
Re: Button push
[re: Button]
|
|
Автор |
Naki (Company PC Guy) |
Публикувано | 16.03.12 00:48 |
|
Версия на Delphi? Това за натискането за мишката ли говориш - ако да, има си събития OnMouseDown и OnMouseUp.
Ето тука има инфо:
| |
Тема
|
Re: Button push
[re: Naki]
|
|
Автор | Button (Нерегистриран) |
Публикувано | 16.03.12 00:59 |
|
Не за мишката а за обикновен бутон.Когато се натисне да се появи текст а като се пусне да изчезне текста.
| |
Тема
|
Re: Button push
[re: Button]
|
|
Автор |
Naki (Company PC Guy) |
Публикувано | 16.03.12 12:12 |
|
Аха.
Еми тогава виж OnKeyDown и OnKeyUp събитията.
Също така, за да става независимо в коя част/контрол на формата е фокуса, виж и свойството на формата KeyPreview - може би ще трябва да го сложиш на 'true'.
За кой бутон става дума? Не знам дали баш ще стане, ако искаш да е Alt, Shift или Ctrl, но с другите бутони, примерно букви или цифри, би трябвало да стане.
Инфо тука:
Иначе самия Label можеш да го показваш и скриваш като му сменяш свойството Visible (true/false).
Редактирано от Naki на 16.03.12 18:05.
| |
Тема
|
Re: Button push
[re: Naki]
|
|
Автор | Button (Нерегистриран) |
Публикувано | 16.03.12 22:27 |
|
Искам нещо простичко но незнам как става.
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Visible:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible:=true;
end;
При натискане на бутона да се вижда текста а при пускане да се скрива.
Да не се налага повторно натискане че да се скрие!
| |
Тема
|
Re: Button push
[re: Button]
|
|
Автор |
Naki (Company PC Guy) |
Публикувано | 16.03.12 23:12 |
|
Аха, значи контрол бутон, а не бутон на клавиатурата.
Добре, с какво го натискаш бутона? С мишката, или как...?
Със Click събитие няма да стане.
Пробвай така:
Добави MouseUp и MouseDown събития за този button.
И във двете напиши това:
label1.Visible := not label1.Visible;
Така ще бачка както искаш, но само с мишката. Кажи ако ти трябва с клавиатурата също да бачка.
Между другото, това със скриването на лейбъла в FormCreate, можеш да го махнеш и самия Label да го направиш Visible=false още в самото IDE на Delphi.
Редактирано от Naki на 16.03.12 23:27.
| |
Тема
|
Re: Button push
[re: Naki]
|
|
Автор | Button (Нерегистриран) |
Публикувано | 16.03.12 23:17 |
|
Именно
с мишката и клик
дай идея
| |
Тема
|
Re: Button push
[re: Button]
|
|
Автор |
Naki (Company PC Guy) |
Публикувано | 16.03.12 23:23 |
|
Готово, едитнах си поста! Пробвай...
| |
Тема
|
Re: Button push
[re: Naki]
|
|
Автор | Button (Нерегистриран) |
Публикувано | 16.03.12 23:31 |
|
Този го знам ти ми го предложи по нагоре интересуваме дали има друг вариант. Не че ми трябва но просто се натъкнах на това и ми стана интересно.
| |
Тема
|
Re: Button push
[re: Button]
|
|
Автор |
Naki (Company PC Guy) |
Публикувано | 16.03.12 23:33 |
|
Има, става и така:
Във MouseDown пишеш label1.visible:=true;
Във MouseUp пишеш label1.visible:=false;
Ще прави същото като горното - предното просто сменя състоянието (с оператора Not), а това дето давам тука директно променя към желаното състояние.
| |
|
Страници по тази тема: 1 | 2 | >> (покажи всички)
|
|
|