Мелочи

[viks1]

Сообщение от evg_m

Увы, нет.
то что сделали вы не спорю работает, но вы напрочь исключили возможность модификации программы без правки выделенной функции. Вместо локальных данных ввели(стали использовать) глобальные.

 if w[i] =index[j] then begin

Надо было всего

впрочем это скорее еще одна моя сopy +paste
надо было

     if с=index[j] then begin

и использовать так

 myind:=GetcharIndex(W[j]);

понял... в функцию поступал индекс строки а возвращаемое значение записывалось бы в myind
так?

[viks1]

Я загружаю картинку, как сделать что бы размер картинки был под форму, без разницы, большая картинка или маленькая. Я буду растягивать форму уже в процессе инициализации программы, а картинка должна так же растягиваться в форме (Она должна быть на всю форму)
Как это реализовать?

[Аватар]

Image.Align:=alClient;
Image.Stretch:=True;

Но пропорции сдохнут

[viks1]

Сообщение от Аватар

Image.Align:=alClient;
Image.Stretch:=True;

Но пропорции сдохнут

пропорции не особо важны. Спасибо!

[viks1]

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

[Аватар]

viks1, покрути Align панели (и не только, в большинстве визуальных объектов такое св-во есть), много чего интересного. А еще присмотрись к св-ву Anchors

[viks1]

Сообщение от Аватар

viks1, покрути Align панели (и не только, в большинстве визуальных объектов такое св-во есть), много чего интересного. А еще присмотрись к св-ву Anchors

Понял. Там alTop в свойстве align . Спасибо!

[Yurk@]

Сообщение от viks1

1. Перемещение между TEdit ами по нажатию Enter

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
Edit2.SetFocus;
end;

попробуй: (событие OnKeyDown)

uses 
  Messages;
procedure OnKeyDown(...);
begin
  if Key = VK_RETURN then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;

[viks1]

Сообщение от Yurk@

попробуй: (событие OnKeyDown)

uses 
  Messages;
procedure OnKeyDown(...);
begin
  if Key = VK_RETURN then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;

попробую, спасибо!

[Аватар]

А вдруг в Edit2 Enabled=False? Тогда исключение подымется. Обычно делаю это в OnKeyUp, что в принципе не важно, но чуть по другому, в соответствии с TabOrder

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var xControl: TWinControl;
begin
  if Key<>13 then Exit;
  xControl:=FindNextControl(Sender as TWinControl,True,True,False);
  if xControl<>nil then ActiveControl:=xControl;
end;

ADD

WM_NEXTDLGCTL и не приметил