Делаю так:
- Код: Выделить всё
procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
Memo1.Cursor:=crArrow;
end;
Так не получается
Модератор: Модераторы
procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
Memo1.Cursor:=crArrow;
end;
procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
Memo1.Cursor:=crArrow;
Memo1.Repaint;
end;
procedure TForm1.Memo1MouseEnter(Sender: TObject);
begin
Screen.Cursor := crArrow ;
end;
procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
Screen.Cursor := crDefault;
end;
pupsik писал(а):не круто, но - вариант. т.е. такого не предлагали.![]()
- Код: Выделить всё
procedure TForm1.Memo1MouseEnter(Sender: TObject);
begin
Screen.Cursor := crArrow ;
end;
procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
Screen.Cursor := crDefault;
end;
Спасибо! Помогло!
pupsik писал(а):а то, судя по теме, вскоре лазаря переустановить бы предложили
pupsik писал(а):судя по теме, вскоре лазаря переустановить бы предложили
у..у: кажись цепанулопереустанавливать
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 213