Вопрос по Windows Forms

Среда PascalABC.NET
#3

Забыл добавить - self доступен только в методах объекта Form1 (совсем грубо - в процедурах и функциях, начинающихся с Form1.). В принципе, изменять свойства формы вне этих процедур - не очень-то хорошая идея, но если прям очень-очень надо - то можно сохранить self во внешней переменной (но, опять же, идея, прямо скажем, так себе).

1 лайк
#4

У меня почему-то ничего не открывается, хотя intellisense включён на полную.

Не понимаю. Если self доступен только в методах объекта Form1, то как вообще можно изменять свойства формы вне этих процедур, ведь там же это будет просто невозможно?

Как это сделать? И что такое внешняя переменная? И почему идея плохая? (Простите за большое количество вопросов - это моё первое приложение с использованием Forms)

#5

Проверьте свою секцию uses на наличие там System.Drawing. Собственно, тип Color оттуда - попробуйте его вводить как System.Drawing.Color, возможно, тогда подсказки появятся?

Например, так:

  • Создаёте в секции Implementation Вашего unit’a, в котором объявлена форма, переменную типа Form1:
Unit Unit1;

interface
{...}
implementation

var frm: Form1;
{...}
  • При срабатывании события Load формы (обработчик по умолчанию будет называться Form1.Form1_Load) сохраняете в эту внешнюю переменную значение self:
procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin
  frm1 := self;
end;
  • Теперь можете использовать переменную frm в процедурах, не являющихся частью Form1:
procedure changeFormColor;
begin
  frm1.BackColor := Color.Blue;
end;

Делать так не стоит хотя бы из-за того, что:

  • Нет гарантии, что переменная frm будет хранить нужное значение при вызове процедуры/функции;
  • Вы смешаете логику приложения и его интерфейс, и распутать такой комок будет непросто;
  • Как Вы сами заметили, self будет доступен в методах Form1, и можно никакого огорода не городить.

Если хочется (надо) вынести какую-то часть кода - например, процедуру, рисующую что-либо в каком-то компоненте - лучше передавать нужные объекты (в данном случае, Graphics) как параметр процедуры:

procedure drawSomethingNontrivial(g: Graphics);
begin
  var p := Pen.Create(Color.Red, 1);
  g.Clear(Color.White);
  { ... - здесь происходит отрисовка }
end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  { Предполагается, что мы хотим выводить изображение в PictureBox1 }
  drawSomethingNontrivial(PictureBox1.CreateGraphics);  
end;
1 лайк
#6

Большое спасибо за подробные ответы!

Мне не понятно, почему так? Ведь мы записали в неё значение, никакая процедура его не изменяет. Тогда почему оно будет изменяться?

Я правильно понимаю, что интерфейс - это (в данном случае) свойства формы, а логика - это наша новая переменная frm1? И мне не понятно, почему плохо их смешать.

Я решил эту проблему. Оказывается, в исходниках проекта были синтаксические ошибки. И когда я его открывал, то Intellisense отключался почему-то.

Моих знаний не достаточно, чтобы это понять… :confused:

У меня возник новый вопрос: как перевести курсор из одного TextBox в другой при нажатии Enter?

#7

Имейте ввиду, что для работы intellisence требуется, чтобы в файле не было никаких ошибок. И даже в этом случае он иногда отключается просто так.

#8

Спасибо, но я это уже понял:

#9

Форумчане, ответьте, пожалуйста, хотя бы на этот вопрос:

#10

Есть несколько способов перехода по TabIndex, в двух словах - нужно отлавливать событие нажатия на кнопку в поле ввода, и либо генерировать событие нажатия кнопки Tab, либо сразу перенаправлять к следующему контролу.

#11

Я написал такой код:

procedure Form1.textbox2_keypress(sender: Object; e: KeyEventArgs);
begin
if e.KeyCode=Keys.Enter then selectnextcontrol((control)sender,true,true,true,true);
end;

Но он выдаёт ошибку: Unit1.pas(59) : Встречено ‘sender’, а ожидалось ‘)’. Что делать? (Мне нужно перевести курсор из textbox2 в textbox3, сразу перенаправляя к следующему контролу, а не генерируя событие нажатия tab).

#12

наверно надо не (control)sender, а control(sender), это все таки не настолько .NET

#13

Изменил. Теперь ошибка “Ожидалось имя процедуры или функции”. (Ругается на Control(sender)).

#14

А он знает что такое Control? в uses перечислено? Возможно просит полностью писать - System.Windows.Forms.Control

#15

System.Windows.Control написал, не помогает - та же ошибка. Что писать в uses? Там уже есть system.windows.forms.

#16

не System.Windows.Control, а System.Windows.Forms.Control

#17

Да, я так писал. Я в предыдущем сообщении перепутал.

#18

тогда надо попробовать разбить вызов selectNextControl на две строки, сначала преобразовать sender в control, потом уже вызывать саму функцию, чтобы было проще понять на что именно ругается.

var cnt := control(sender);
Control.selectNextControl(cnt,true,true,true,true);
#19

Написал. Ругается на selectnextconrol: Unit1.pas(60) : Mетод SelectNextControl не является статическим для типа System.Windows.Forms.Control

#20 
procedure Form2.textBox2_KeyPress(sender: Object; a: KeyPressEventArgs);
begin
   if a.KeyChar = #13 then SelectNextControl(sender as Control, true, true, true, true);
end;

Может, это поможет вам.

#21

Решил проблему следующим образом:

procedure Form1.textBox3_KeyPress(sender: Object; e: KeyPressEventArgs);```

begin if e.keychar = Chr(13) then textBox4.Focus; end;

#22

Однако мне совершенно не понятно, что такое идентификатор “e”. Это какая-то переменная? Почему она хранит информацию о событии? Что эту информацию в неё вписывает? Командный процессор ОС?

И как выбирается именно необходимая событийная процедура? В общем, вопросов у меня очень много. Прошу помощи в познании информатики!