VPF::Формы и едиты - Форум программистов

Exai1e

Дата 23.12.2007, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30

Можно

Код


Butto1.Enabled := false;
...
Butto1.Enabled := true;

--------------------

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

pomogite

Дата 24.12.2007, 16:37 (ссылка)

(голосов:2)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Код


procedure TForm1.Button1Click(Sender: TObject);
    begin
       if label1.Enabled=true then label1.Enabled:=false  else Label1.Enabled:=true;
    end;

Примерно так...

Это сообщение отредактировал(а) pomogite - 24.12.2007, 16:39

Qu1nt

Дата 25.12.2007, 02:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

pomogite, ужас smile

Код


Label1.Enabled := not Label1.Enabled;

Olegan

Дата 25.12.2007, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Крутой сисадмин

Профиль
Группа: Завсегдатай
Сообщений: 752
Регистрация: 15.5.2007

Репутация: нет
Всего: 105

Цитата(Loser @ 23.12.2007, 12:10)

Извиняюсь что пишу здесь, не хочеться создавать новую тему для такого пустякового вопроса:
Можно ли программно вляить на свойство enabled у меня почему то не получаеться. Может есть аналоги этого свойства?

А как именно Ты на него влиять то хочешь? Приведи свой пример.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if button2.Enabled then
    ShowMessage('Enabled') else
    ShowMessage('NOT Enabled');
end;

end.

--------------------

Цитата(Mayk @ 18.6.2008, 14:29

)

/me объявляет Olegan врагом народа

Цитата(gta4kv @ 20.6.2008, 22:01

)

/me объявляет Olegan врагом народа во второй раз

Цитата(localhost @ 15.6.2009, 08:45

)

/me объявляет Olegan врагом народа в третий раз

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »